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ABSTRACT 



The effect of stress and temperature on the creep behavior of an Al-2.0wt%.Li 
alloy was investigated in the temperature range from 300 to 500°C. This 
temperature interval corresponds to a solid solution of Li in Al. Experimental 
results indicate that Al-2.0wt%Li behaves as a pure metal class alloy (class II). 
This is demonstrated by several creep characteristics including the value of the 
stress exponent (n ~ 5), the shape of the creep curve, and the nature of the creep 
transient after a temperature change. However, anomalous behavior of the 
activation energy was observed. Activation energies up to 55 kcal/mole, 
decreasing to approximately 33 kcal/mole at higher temperatures, were observed 
by the temperature cycling technique. 
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I. INTRODUCTION 



Both the blacksmiths of old and today's metallurgists have long recognized 
that small changes to processing variables or to alloy compositions can create 
widely varying effects on the mechanical properties of the resulting metal. 
Metallurgists today attribute these effects on the mechanical properties to changes 
in the microstructure. Now, metallurgists must explore and exploit these effects 
to meet the demands of today's rapidly evolving materials needs. 

From Italy's Da Vinci to America's Wright brothers, aviation has always 
been at the forefront of technology. Military specifications dictate that putting 
more payload in the air is the overwhelming factor in design. Aluminum alloys 
are the predominant materials of airframe construction because of their high 
strength-to-weight ratio when used as beam structures and aircraft skin. Criteria 
used to evaluate metals for aerospace applications begin with relative strength 
and density. However, some components must withstand necessarily high 
temperatures as well as maintain good strength characteristics. Other important 
criteria include resistance to cyclic fatigue, corrosion resistance, weldability and 
good appearance. 

Many materials have adequately met these criteria and are in wide use today. 
Factors which spur continued research in high strength, temperature resistant 
Aluminum alloys are cost of materials, as well as fabrication and lifecycle costs. 
When Li is added to A1 it forms an alloy with a lower density and a higher 
modulus of elasticity than pure Al. Yet Al-Li alloys without other alloying 
elements are not widely used commercially due to poor mechanical properties. 
When other alloying elements are added to Al-Li systems, the mechanical 
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properties can be improved dramatically. At ambient temperatures, the 
mechanical properties of Al-Li alloys are well known. These include factors 
such as high strength-to-weight and stiffness-to-weight ratios, and good 
toughness and cyclic fatigue characteristics. However, very little information 
exists on the high temperature behavior of the Al-Li system. Thus, limits on 
elevated temperature exposure of these alloys have yet to be determined. 
Therefore, it is the main thrust of this investigation to expand the body of data 
on an Al-2.0wt%Li alloy in terms of the stress and temperature dependence of its 
creep behavior, as well as to investigate the activation energies for creep in the 
temperature range 300 to 500°C. 
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II. BACKGROUND 



A. CREEP OF SOLID-SOLUTION ALLOYS 



This research considered the constant stress creep behavior of Al-2.0wt%Li 
in the temperature range from 300 to 500°C. The solvus temperature for this 
alloy is ~ 360°C (see Figure l).Thus at 300 and 350°C effects may arise due to 
precipitation. From 400°C upwards, the effects of solid solution strengthening 
alone, without influence from precipitation , will be observed. 



ATOMIC PERCENT LITHIUM 

10 20 30 40 50 60 70 




Figure 1. Al-Li Phase Diagram 
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The creep response of solid solutions has been classified into two categories 
based on the premise that dislocation motion occurs through sequential glide and 
climb processes [Ref. 1]. 

1. Class I Solid Solutions 

The first category commonly referred to as class I or alloy class, 
exhibits dislocation glide as the rate-controlling process during deformation due 
to solute drag on the moving dislocations. Class I alloys commonly exhibit a 
stress exponent, n (= d In c / d In e), of about 3, a brief primary stage of creep 
and random distribution of dislocations. The activation energy is equal to that 
for solute diffusion. 

2. Class II Solid Solutions 

The second category is called class II or pure metal class, where 
dislocation climb becomes rate-controlling. Class II alloys exhibit a stress 
exponent, n, close to 5, extensive primary creep and subgrain formation. The 
activation energy is essentially equal to that for self-diffusion. 

B. STRUCTURE OF AL-LI ALLOYS 

1. Effect of Li Addition in AI 

As an addition to Al alloys, Li offers a significant decrease in density 
and increase in modulus of elasticity. Li has a high solubility in Al (5.2%) in the 
binary Al-Li system. Greatly improved strengths result from the 5' (Al3Li 
phase) precipitation during age hardening. Also, each percent of Li added to Al 
reduces the density of the alloy by 3% and increases the modulus of elasticity by 
6%, up to 4 % Li additions. 

The role of Li increasing the modulus of elasticity of Al has been 
addressed recently in a paper by Fox and Fisher on a study of 1.33 and 2.14wt% 
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Lithium additions to AI. The Li addition in A1 results in an increase in the 
electron charge density between Al and Li atoms. Accordingly, this increase in 
charge density results in an increased average force of attraction between the 
atoms and thus an increased modulus of elasticity. [Ref. 2] 

2. Ordering in the Al-Li Matrix 

Radmilovic, Fox and Thomas contend that ordering exists within the 
range of the solid solution and not only in the temperature region below the 
solvus. This was based on the observation of superlattice reflections and no 
discernable 8' particles irrespective of prior solution treatment temperature or 
quench medium employed following solution treatment. The ordered alloy 
apparently decomposes into a modulated order/disorder structure by a spinodal 
mechanism with increased Li content in the ordered regions until such regions 
coarsened into discrete 8’ particles. [Ref. 3] 

The increased modulus and the presence of ordering in the solid 
solution are evidence that Al and Li atoms tend to bond readily. The 
temperature dependence of such bonding has not been addressed. It has been 
shown, however, that both the modulus of elasticity and the stacking fault energy 
influence the creep behavior of materials, hence it is likely that the creep 
response of Al-Li alloys may be influenced by Li addition through these material 
parameters [Ref. 1]. 

C. THE MECHANISM OF CREEP 

1. Interaction of Dislocations and Solute Atoms 

A dislocation has a stress field associated with it. Solute atoms, because 
their sizes are either too small or too large in relation to the solvent atom size, 
are also centers of elastic strain. Consequently, the stress fields from these 
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sources can interact and can mutually exert force. This is an elastic interaction 
due to misfit. 

The interaction of the solute atoms and edge dislocations leads to a 
migration of solute atoms to the dislocation where they form an atmosphere 
around it. This solute atmosphere, called the Cottrell atmosphere, has the effect 
of locking the dislocation. This makes it necessary to apply additional force to 
free the dislocation from the atmosphere. [Ref. 4] 

Li atoms are very close to the same size as A1 atoms. However, even 
when the size difference is zero, a contribution to the binding energy between the 
solute and the dislocation can result due to the difference in modulus between the 
two. The solute atom behaves as an elastic heterogeneity in the dislocation strain 
field. If the solute is softer (i.e. smaller shear modulus) than the matrix, the 
energy of the strain field of the dislocation can be reduced by distortion of 
solute. This means that the energy will be negative and thus there will be an 
attraction between the solute and the matrix. For a solute that is harder than the 
matrix, there will be a force of repulsion between the two. [Ref. 4] 

At high temperatures (> 0.5 Tm), the mobility of the solute atoms will 
be much greater than that of the dislocation, with the result that they will not 
restrict the dislocation motion. In the range of temperature where solute atoms 
and dislocations are equally mobile, there are strong interactions with 
dislocations. [Ref. 4] 

The movement of dislocations will result in disordering of ordered 
regions in a partially ordered alloy. This disruption would cause an increase in 
the energy of the material and requires additional work to be done. Mechanical 
properties thus are altered when materials have an ordered structure. Fully 
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ordered alloys may deform by means of the movement of superlattice 
dislocations at rather low stresses. However, the super dislocations (i.e. closely 
spaced pairs of unit dislocations bound together by an antiphase boundary) must 
move as pairs in order to maintain the ordered structure. This makes cross-slip 
and climb more difficult. Long-range order thus leads to high rates of strain- 
hardening and frequently to brittle fracture as well as high-temperature creep 
resistance. [Ref. 4] 

2. Creep Rate Dependence on Temperature 

Creep is a thermally activated process. Thus, the creep rate, emim can 
be described by an Arrhenius type of relation: 

-Qc 

Emin tx exp ( prp ) (1) 

where Qc is the activation energy for creep, R is the gas constant, and T is the 
absolute temperature. This has been demonstrated by several experiments, [e.g. 
Ref. 1] 

3. Creep Rate Dependence on Diffusion 

If the creep rate is dependent on dislocation climb or upon the motion 
of jogged screw dislocations, then the steady state creep rate, £min, should be 
proportional to an appropriate diffusion coefficient, D: 

Emin Ot D (2) 

and there is ample evidence for the correlation of £min and D. For example, the 
steady-state creep rate stress data at various temperatures for a given metal can 
be made to virtually coincide if the creep rate is first divided by the diffusion 
coefficient for the appropriate temperature and then plotted against stress. Since 
the creep rate is proportional to the diffusion coefficient, it is logical that the 
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activation energy for creep of pure metals should be about equal the activation 
energy for self diffusion. [Ref. 1] 

4. Creep Rate Dependence on Stress 

Sherby and Burke [Ref. 1] note that for low and intermediate stresses, 
the relationship between the creep strain rate and stress (at constant temperature) 
can be described by the power-law relation: 

Emin a o n (3) 

where o is the stress. If creep can occur by several different independent 
processes, the fastest of these will be rate-controlling. Thus, the mechanism of 
creep at very low stresses (range I) can be associated with the creep law: 

Emin a a 1 (4) 

where n equals 1 , since this creep process yields a more rapid creep rate than the 
process responsible for the intermediate stress (range II) where: 

Efnin cl a n (5) 

and where the value of the stress exponent, n, is greater than 1 [Ref 1]. With 
increasing stress, it is expected that a transition in creep mechanisms will occur 
as the rate of range II processes increases more rapidily with stress than the rate 
of range I processes. 

5. Class I Alloys and Their Creep Rate 

Sherby and Burke [Ref. 1: p. 341] note that creep of solid solution alloys 
between e/D values ranging typically from 10- to 10^ cm' 2 can be divided into 
two categories. Class I alloys are first and their strain rate is proportional to the 
cube of the modulus-normalized stress: 

emin = B D s ( | )3 (6) 
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where e m in is the strain rate, B is a physical constant, D s is the diffusion 
coefficient for the solute, a is the true stress, E is the elastic modulus and n is 
equal to three. Dislocation glide is the mechanism for creep where the velocity 
of the dislocation motion is determined by the amount of friction that the solute 
atoms generate to oppose the glide motion. The activation energy for creep 
would be the activation energy for diffusion of the Li solute. 

6. Class II Alloys and Their Creep Rate 

Class II alloys are the second classification and their strain rate, Emin, is 

proportional to the cube of the stacking fault energy, (y)3, to the modulus- 
normalized stress raised to the fifth power, ( )5 and to the self-diffusion 

coefficient, Dp 

emin = A(y)3(|)5Di (7) 

where A is a material constant, R is the gas constant, and n is equal to five. The 
mechanism of creep in this class is dislocation climb, the rate of which is also 
affected by subgrain size. Class II alloys exhibit a distinct primary creep stage, 
similar to pure metals, and the activation energy for creep can be anticipated to 
be the same as the activation energy for self-diffusion. On the basis of increased 
modulus alone, one could anticipate that the strain rate of the alloy would be 
slower than that of A1 for either class I or class II alloys. 

D. OTHER EFFECTS ON THE ACTIVATION ENERGY 

The activation energy for a given metal can be calculated if the creep rate is 
known at two temperatures: 

Qc = -R( A1 °f £ )1 o,e (8) 
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Earlier, it was noted that the activation energy for creep was about equal to 

the activation energy for self-diffusion. If, however, the modulus were to be 

strongly temperature dependent, the activation energy for creep would not be 

exactly equal to the activation energy for self-diffusion. Similarily, the stacking 

fault energy may vary with temperature. The influence of such temperature 

dependent factors can be shown with the aid of equations 7 and 8: 

n r> , Alog e _ 3lnD ^ p 31nE dlni, 

Qc - -R ( i )l c,e - - R i I a,e + 5R ,1 g,£ - 3R ,1 a,£ (9) 

A Y 



The term -R 51nD/3(l/T) is simply equal to the activation energy for self- 
diffusion. So, equation 9 becomes: 

Q c = Qd + 5R^- - 3R ^ (10). 



If E and y do not change much with temperature, then Q c will effectively 
equal Qd- However, if E and y are strongly temperature dependent then Q c 
would differ from Qd. 

This, in fact was found to be the case, as experimentally determined values of 
Qc were observed to be greater than known values of Qd for pure A1 in the 

temperature range of 300 to 470°C. 



E. PREVIOUS RESEARCH AT NPS 

Anomously high activation energies were reported by Taylor [Ref. 5] in his 
study of Al-0.5wt%Li and Al-1.0wt%Li, as well as by Ellison [Ref. 6] in his 
study of Al-2.0wt%Li. These results were attributed to the alloy's temperature 
dependence of the modulus and the stacking fault energy relative to pure Al. 
These results represent the initial point where this study of the creep behavior 
and of the activation energy for Al-2.0wt%Li commences. 
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III. EXPERIMENTAL PROCEDURE 



A. CASTING AND SECTIONING 

A Al-2.0wt%Li casting, number NPGS13 and manufactured utilizing 99.99 
percent pure Aluminum alloyed with 99.90 percent pure Lithium, was received 
from the Naval Surface Weapons Center (NSWC) in White Oak, Maryland. The 
casting was in the form of a tapered cylindrical ingot 200 mm (8.0 in) in length 
and approximately 76 mm (3.0 in) in diameter.The casting was sectioned into 
billets for subsequent solution treatment and processing. The traverse sections 
were 25 mm (1.0 in) thick and 76 mm (3.0 in) in diameter. 

B. THERMOMECHANICAL PROCESSING 

Solution treatment was conducted at 540°C for 12 hours with a subsequent 
water quench to room temperature. A Lindburg Type B-6 heavy duty furnace 
was used for homogenization. For rolling, the homogenized billet was placed in 
a Blue M furnace, Model 8655f-3, for 5 minutes reheating at temperatures 
between 400°C and 450°C prior to each rolling pass. A massive steel plate was 
located on the floor of the furnace to act as a heat capacitor in order to maintain 
a stable annealing temperature. Care was taken to commence the 5 minute anneal 
"clock" once the temperature of the billet was above 400°C.The last rolling pass 
was followed by cold water quenching to room temperature. The TMP is 
schematically represented in Figure 2. 
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Figure 2. TMP for Samples 



Billets were rolled in a Fenn Laboratory Rolling Mill using the reduction 
scheme shown in Table 1. By turning the screw down wheels the number of 
turns indicated (second column) to the setting shown (third column), then the 
mill gap indicated (fourth column) would result in the amount of strain per pass 
shown (last column). 

The resulting rolled strip, nominally 2 mm (0.08 in) in thickness, was 
machined to dimensions for tensile testing, see Figure 3. The rolled strip was 
first cut by band saw into rectangular blanks and machined into reduced gauge 
section, sheet-type, tensile specimens with the long axis parallel to the rolling 
direction. A special holding device was fabricated to secure the samples duiing 
machining due to the extreme softness and ductility of the material. Five 
specimens were machined at one time. The finished samples were examined for 
defects and all machining burrs were carefully removed with a jeweler’s file. 
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Prior to testing, all samples received a heat treatment of 15 minutes at 500°C to 
provide a fully annealed microstructure. 



Table 1. ROLLING SCHEDULE 



ROLL# 


ROLL CHANGE 
(0.08 in + 0.01 in) 


MILL SETTING 
(ri^ht/left) 


MILL GAP 
(in) 


% STRAIN 
(per pass ) 


open 


+(12 + 4) 


0/0 


0.94 


— 


i 


-(2 + 0) 


0/0 


0.84 


10.4 


2 


-(1+2) 


6/6 


0.74 


12.0 


3 


-(1+2) 


4/4 


0.64 


13.5 


4 


-(1+2) 


2/2 


0.54 


15.6 
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0.13 
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0.09 


30.7 


11 


-(0 + 3) 


2/2 


0.06 


33.3 


12 


-(0+ 1.3) 


0.7/0.7 


0.047 


21.7 



C CONSTANT EXTENSION RATE TESTS 

Constant extension rate tensile tests were performed on an Instron TM-S-L 
Table Model Universal Testing Machine with a 1,000-pound calibrated load cell. 
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The tensile testing temperature was maintained by a Marshall tubular furnace in 
combination with a Lindburg Model 59344 temperature controller. 




Figure 3. Tensile Test Specimen Drawing 



Special self-aligning grips were designed to hold the tensile test specimens 
(Figure 4)[Ref. 5]. These grips were fabricated of Inconel 625 alloy by Collins 
Instrument Company, Freeport, Texas, using a wire electro-discharge machining 
(EMD) process for tolerance control. 

Unique features of these grips include a tapered shank leading to a button 
head which aligns itself by transmitting the load to the grips via the taper. The 
recessed face of the grips compressively hold the specimen, applying the load to 
the entire tab, not just the area above the bolt hole. 

Once temperature was attained, the furnace was de-energized, lowered, and 
the grip assembly with the sample installed was inserted into the grip holder 
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assembly. The furnace was raised, re-energized and allowed again to stabilize 
for approximately 45 minutes. While the sample and grips were equilibrating, 
the slack was removed from the load train by a small pre-load in order to 
prevent slippage in the grips. Since the entire gauge/grip/heater assembly is 
mounted to the bottom of the crosshead and moves down with the crosshead as 
the test progresses, the original temperature gradient can be maintained for any 
extension likely to be encountered with this alloy. 




Figure 4. Self-Aligning Grip Assembly 



D CONSTANT STRESS TESTS 

Constant stress tensile creep tests were conducted on a pair of test machines 
designed at NPS and were patterned after a machine built by Barrett and later 
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modified by Matlock at Stanford University [Ref 6]. The constant stress is 
obtained by means of an Andradre-Chalmers lever arm. The contoured lever 
rotates as the specimen elongates (Figure 5). 



LVDT INPUI 




Figure 5. Diagram of Constant Stress Machine 



This rotation decreases the moment arm of the applied load as the cross- 
sectional area of the specimen decreases with elongation, thus maintaining a 
constant true stress. The design of the arm is based on the assumption that the 
load train is rigid and the linkage displacement is taken up uniformly. The 
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machine is capable of transmitting loads between 1.5 and 222.5 Newtons (0.3 to 
50 lbs) and at strains as high as 300 percent. 

The contour of the lever arm was designed using Autocad in conjunction 
with the highly accurate graphical technique developed by Coghlan[Ref. 8]. The 
design used an effective gauge length of 13 mm (0.5 in) with an initial lever arm 
ratio of 10:1. The lever arm was constructed of 6.4 mm (0.25 in) thick 2024-T6 
Aluminum and is attached to a 9.53 mm (0.375 in) diameter shaft rotating on a 
set of precision bearings. An adjustable counterbalance was affixed to the 
opposite end of the shaft, balancing the lever arm. This counterbalance in 
conjunction with another weight attached to the shaft to compensate for the 
weight of the load train, ensured that the only load sensed by the sample was that 
of the applied load. 

A flexible 0.55 mm (0.02 in) thick steel strap follows the lever arm contour 
and hangs along the vertical tangent to the lever. A second flexible strap hangs 
tangent to a two inch radius disc centered at the fulcrum point which transmits 
the tensile load to the sample via the load train. The entire linkage was 
calibrated using a 50 lbf capacity interface load cell installed in the load train. 
The maximum stress variation through 300 percent elongation was 1.4 percent 
[Ref. 5]. 

Sample elongation was measured using a Schaevitz linear variable 
differential transformer (LVDT) with a 1 inch displacement. The core of the 
LVDT was attached to the upper specimen linkage. The 2.866 mv/v signal 
output from the LVDT is conditioned by a Schaevitz Model ATA 101 analog 
transducer amplifier. The amplifier voltage was measured by a Hewlett-Packard 
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(HP) Model 3497A Data Acquistion Unit controlled by an HP Model 9826 
computer. 

Marshall tubular furnaces were used for temperature control in conjunction 
with Eurotherm Model 808 digital temperature controllers. The temperature 
gradient in the furnaces was controlled and monitored similarly as with the 
Instron testing. Preheat and sample loading procedures were also similar. 

Prior to the temperature stabilizing, the creep test program was started. The 
LVDT was zeroed (as determined with a digital multi-meter) in parallel with the 
amplifier (later, this step would be eliminated by a modification in the creep data 
acquisition program which zeroed the readings artificially). A precalculated 
weight in a plastic bag was carefully suspended from the lever arm by the 
flexible strap, and each test was allowed to continue to failure. 

1. Features of the Software for the Constant Stress Tests 

The software designed to run the creep tests was written in HP Basic 2.0 
and featured a user friendly, menu-driven interface, see Appendix G. The 
software was designed to control two creep machines running simultaneously, 
and would plot and display on a video monitor the real time engineering strain vs 
time graphs for simultaneous tests. The algorithm was written to sample 5000 
voltage and time data pairs for each test and then convert the voltage to 
engineering strain using 1 volt per 20% strain. Once the test was completed the 
menu gave the user the ( hoice of plotting either true/engineering strain vs time 
graphs on the HP Model 7275B plotter, or of saving the accumulated data to one 
of three floppy disc drives. If desired, the program also prints a table with the 
reading number, the percent strain and the time of the reading on the HP Think 
Jet printer. 
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E. TEMPERATURE CYCLING TESTS 

The temperature cycling tests were similar to the creep tests with the 
exception that the temperature was raised 10°C above the initial test 
temperatures and after from four to eight hours, and was subsequently returned 
to the initial test temperature. This procedure was repeated until failure for each 
sample. The load and cycle times were such that each test would cycle several 
times over a two to four day period. 

Later receipt of Eurotherm Model 808 programmable digital temperature 
controllers allowed precise control of temperature ramp, level, and dwell time. 
The PID features of these controllers also were adjusted to eliminate temperature 
over-shoot. 

F. DATA REDUCTION 

For the Instron tests, the raw data was obtained manually from the Instron 
strip chart recorder. The data from the plastic region were converted to true 
stress strain data by a program written in Basic for the NPS Mainframe 
computer (see Appendix G). The program was written to calculate a correction 
factor to account for mechanical slippage while testing. These data points were 
plotted using the Easyplot graphics routine on the NPS mainframe computer. 
The peak true stress from the above data was paired with the known applied 
strain rate to determine a single data point. 

For the creep tests, the data was stored to 5 1/4 in floppy disc and output on 
the plotter. The creep rate in the secondary region was graphically determined 
from the true strain vs time creep curve and was paired with the known applied 
stress to constitute a single data point. 
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The temperature cycling test data was reduced in a similar manner as the 
creep tests. Additionally, the strain rate vs true strain graphs were plotted using 
a computer program written in HP Basic 2.0. This data reduction program was 
designed to be user-friendly and is menu-driven (see Appendix G). The menu 
choices included several types of graphs, true strain tables, strain rate tables, and 
calculation of activation energy. An example of the tables produced is in 
Appendix F. 

The activation energies for the alloy were calculated from temperature 
cycling tests by graphical differentiation of the creep curve and were compared 
to the values of the activation energy for pure Al. 

G. OPTICAL MICROSCOPY 

Samples were mounted in Sample-Quik, manually ground to 600 grit, and 
polished with 3(im diamond paste. The samples were then electro-polished in 
Keller's reagent at 14 volts for 12 seconds, and anodized in Baker's solution at 
14 volts for 60 seconds. The temperature of both processes was between -20 and 
-24°C. Optical micrographs were taken at various magnifications on a Zeiss 
optical microscope under plane polarized light. 
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IV. RESULTS AND DISCUSSION 



A. MICROSCOPY 

I 

Optical microscopy was conducted by Ellison [Ref. 6] on as-rolled samples 
and on samples annealed at 500°C prior to creep testing. He reports that the as- 
rolled material exhibited grains somewhat elongated in the direction of rolling, 
consistent with the processes of fabrication. Subsequent annealing results in a 
microstructure that has large, equiaxed grains, which demonstrated that 'he 
anneal at 500°C for 15 minutes was sufficient to remove the effects of the rolling 
[Ref. 6]. Figure 6, presents a micrograph of the grip section from a sample 
deformed at 300°C. 




Figure 6. Optical Micrograph of 300°C Sample: 
Crip Section at 50x 
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It shows an equiaxed grain structure. Comparison with previous microscopy 
[Ref. 6] reveals the same microstructure and suggests little precipitation, either in 
grain interiors or upon grain boundaries, as a result of heating to 300°C. 

B. CONSTANT EXTENSION RATE TESTS 

Figure 7 summarizes typical results of Instron tests of the Al-2.0%Li alloy 
conducted at 300°C. Note that the material tested at the faster strain rate 
achieves a higher yield strength, rate of strain hardening and maximum stress 
than that at the slower rate. Under these conditions, strain hardening 
predominates the stress strain curve and there is no well-developed, steady-state 
behavior. 

Figure 8 summarizes the results of Instron tests conducted at 450°C, and 
comparison to Figure 7 illustrates the effect of temperature. Note again that the 
material tested at the faster stain rate achieves a higher yield strength and 
maximum stress than that at the slower rate. However, under these conditions, 
softening of the material clearly predominates the stress strain curve. 
Deformation appears to occur at a nearly constant stress for strains above 10%, 
therefore, suggesting an approximate steady-state behavior of the alloy. 

C. CONSTANT STRESS TESTS 

In this portion of the research, specimens were tested at different stresses and 
secondary creep rates were calculated by graphical differentiation of the creep 
curves. Each specimen was tested to failure at a constant stress. Figure 9, in 
which true strain, e, is plotted against time, shows a typical creep curve obtained 
at a temperature of 300 °C. 
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Figure 7. Stress Strain Curves at 300°C for Various Strain Rates 
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Figure 8. Stress Strain Curves at 450°C for Various Strain Rates 
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Figure 9. Creep Curve at 500°C for a Stress of 2.65 MPa: 
Emin = 1.50 x 10'4 sec'l 
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As seen in the figure, the creep curve exhibits three main features: a 
decelerating primary stage up to ~ 50%, a well-defined secondary stage and an 
accelerating tertiary stage prior to sample failure. The shape of the creep curve 
is, therefore, similar to those reported for pure A1 by Sherby.[Ref. 1] 

The effect of the applied stress at a higher temperature is demonstrated by 
comparing Figure 9, tested at 500°C and 2.65 MPa, to Figure 10, tested at 
500°C and 5.48 MPa (note that the creep results are represented on different 
time axes.). For a greater applied stress, the alloy sustains a higher creep rate. 
Also, the primary stage is less extensive at 500°C when compared to that at 
300°C. For all tests in this investigation, creep rates increased as the applied 
load increased and creep rates increased as the temperature increased. 

Figure 1 1 shows a typical creep rate, 8, versus true strain, £, curve 
corresponding to the strain-time curve shown in Figure 9 above. The creep rate 
curve exhibits three main features: a distinct parabolic shape with the primary 
creep rate decreasing slowly, a clear inflection point at 8 ~ 0.58 where the creep 
rate goes through a minimum and a pronounced increase in the tertiary creep 
rate prior to failure. The shape of the creep rate curve is, therefore, similar to 
those reported by Smith [Ref. 9]. The jagged appearance of the curve is due to 
the effects of quantization errors in the acquisition equipment. The analog-to- 
digital (a/d) converter must represent a continuous-time signal in a discrete 
manner and may not distinguish close, yet different, values of voltages sent it 
from the LVDT and its amplifier. The threshold of each level must be enough to 
cause the a/d converter to ascend to the next discrete level. Additional errors are 
introduced since the voltage values are truncated when each value is converted to 
binary code for mass storage on the floppy disc. 
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Figure 10. Creep Curve at 500°C for a Stress of 5.48 MPa: 

Emin = 4.83 x 10"^ sec - ^ 
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Figure 11. Creep Rate Curve at 500°C for a Stress of 2.65 MPa: 



Emin = 1.43 x 10*4 sec'l 
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D. TEMPERATURE CYCLING TESTS 

In this procedure, several identical specimens were crept at a constant stress, 
ct, while the initial temperature, Ti , is rapidly increased. Within 10 minutes of 
the temperature increase, sufficient strain had accumulated to ascertain the 
presence of the new creep rate. This new temperature level, T2, was held for 
several hours. Finally, the increased temperature is rapidly decreased to its 
original value of Tl and the cycling of the temperature in this manner is 
continued through steady-state and up until failure. A typical example for the 
application of this procedure at 350°C is shown in Figure 12, in which the true 
strain, e, is plotted as a function of time. Examination of these data reveals that 
there is a similarity between temperature cycling creep curves and isothermal 
creep curves and that the duration of the temperature excursion from Tl to T2 is 
nominal when compared to the overall duration of the test. 

Figure 13 reveals a typical creep rate versus creep strain curve for the 
temperature cycling tests in which creep rate, e, is plotted as a function of creep 
strain, e. Examination of the figure reveals three important points. First, the 
creep rate, after the temperature increase from 350 to 360°C, increases and 
quickly reaches the new value. Second, in the minimum creep rate region, the 
creep rate after the temperature change from 350 to 360°C reaches a value that 
essentially agrees with the original steady-state rate established before the 
temperature increase to 360°C. Third, the creep transient after a temperature 
change, is identical to that of pure Al, as reported previously by Lytton et 
al. [Ref. 10] 
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Figure 12. Creep Curve at 350-360°C for a Stress of 6.38 MPa: 



ei = 1.28 x 10-6 sec'l & 8 2 = 6.55 x 10*7 sec* 1 
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Figure 13. Creep Rate Curve at 350-360°C for a Stress of 6.38 
MPa: ei = 1.28 x 10*6 sec’l & q = 6.55 x 10*7 sec* 1 
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E. STRESS DEPENDENCE OF THE STRAIN RATE 

The data of Table 2 summarize the results of the uninterrupted tests to 
failure and may be utilized to determine the stress and temperature dependence 
of the strain rate and thus facilitate determination of the underlying mechanisms 
of deformation. Sherby and Burke [Ref. 1] note that, for an intermediate stress 
range, the relationship between strain rate and stress at constant temperature can 
be described by the power-law relationship: 

emin = Ko n (4) 

values of n for pure metals (Al) are usually equal to 5. The experimental values 
of log e obtained in this research were plotted versus log o for each test 
temperature. The results are shown in Figure 14. The stress exponent for Al- 
2.0%Li, as calculated from the slopes of the isothermal curves, shows 
dependence on temperature such that n is 6.7 at 300°C and 6.0 at 350°C. 
However, at 400, 450 and 500°C, n is relatively constant with values of 5.0, 4.8 
and 4.9, respectively, and appears to be independent of temperature in this range. 
These n values, calculated from the data by linear regression, are compiled in 
Table 3. 

For comparison purposes, data from Park et al [Ref. 11], who conducted 
creep tests of Al-2.1wt%Li in the temperature range of 500 to 560°C and 
utilizing double shear specimens, are plotted on Figure 14. Note that at 500°C 
the two data sets differ by a factor of 2 which is considered excellent agreement 
given the different test methods. The stress exponent for Al-2.1%Li, as 
estimated from the slope of the plot, is essentially independent of temperature 
and is close to a value of 4.6. The stress exponent from this investigation at 
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Table 2. SUMMARY OF Al-2.0%Li RESULTS 
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Table 2. (Continued) 
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Table 2. (Continued) 
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Figure 14. Log-Log Curves of Strain Rate Vs. True Stress 
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Table 3. STRESS EXPONENT 



Temp (°C) 


Value of n 


300 


6.7 


350 


6.0 


400 


5.0 


450 


4.8 


500 


4.9 



500°C is 4.9 and also compares well with the value reported in the work of Park 
etal.[ Ref. 11]. 

From the n values obtained in this investigation, it is surmised that the 
mechanisms of creep in the temperature range of 400 to 500°C are similar to 
that of pure Al, which deforms by glide and climb of dislocations, with 
diffusion-controlled climb determining the overall rate of straining. 

F. MICROSTRUCTURAL EVOLUTION DURING CREEP 

Optical microscopy was conducted on fractured samples from the 300°C and 
the 500°C creep tests. Figure 15(a), a photo-micrograph of the gauge section of 
a coupon tested at 300°C, was taken at a low magnification of 50x. It illustrates 
the elongated grains due to creep in the direction of straining. Sub-structures 
have formed within the grains, as evidenced by the mottled contrast. This is in 
accordance with class II deformation behavior, and can be distinguished more 
readily in Figure 15(b), a micrograph of the same region, but at a magnification 
of 200x. The sub grains are well delineated in the grain to the right of center of 
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Figure 15(a). Optical Micrograph of 300°C Sample: 
Gauge Section at 50x 




Figure 15(b). Optical Micrograph of 300°C Sample: 
Gauge Section at 200x 
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the field of view. Intergranular precipitation is also evident and likely consists 
of 8' phase on the prior boundaries of the solid solution. 

Figure 16 shows a micrograph of the grip section of a sample crept at 500°C 
and was obtained at 50x. Larger grains due to grain growth at the higher 
temperature are evident. Figure 17 is a micrograph of this 500°C sample's 
gauge section, also at a magnification of 50x. Grain growth due to temperature 
and strain is evident. A coarser subgrain structure (when compared to the 
sample deformed at 300°C) is also evident in this micrograph and appears as 
irregular grain boundaries. 

G. ACTIVATION ENERGY FOR CREEP 

The data of Table 4 summarize the results of the temperature cycling tests 
and may be utilized to determine the stress and temperature dependence of the 
activation energy for creep, Qc- Assuming creep is thermally activated and 
follows an Arrhenius temperature dependence at constant stress, a value for Q c 
can be obtained from equation 8. Determination of Qc was accomplished by the 
previously described technique of evaluating the steady-state creep rate 
proceeding and following a small, abrupt change in temperature. Temperature 
differences of 10°C were used. The creep rates were determined by graphical 
differentiation of the strain versus time curves. All activation energies reported 
in this paper were plotted in terms of the mean test temperature [Ref. 10] defined 
as: 

1 1/1 Is 

T“ 2 ^ Ti + T2 ^ 12 ’ 

The results are summarized graphically in Figure 18. Values of Qc at 300 
and 350°C are 47.4 and 52.3 kcal/mole, respectively. The activation energy, Qc, 
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Figure 16. Optical Micrograph of 500°C Sample: 
Crip Section at 50x 




Figure 17. Optical Micrograph of 500°C Sample: 
Gauge Section at 50x 
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Table 4. SUMMARY OF Al-2.0%Li TEMPERATURE CYCLING 

RESULTS 



# 


Temp (°C) 


Mean Temp (°C) 


6L(sec-l) 


e'H(sec-l) 


Q c (kcal/mole) 


48 


300-310 


305 


2.10 x 10- 6 


4.30 x 10-6 


47.4 


28 


350-360 


355 


1.28 x 10- 6 


6.55 x 10-7 


52.3 


29 


400-410 


405 


1.18 x 10-6 


2.22 x 10-6 


57.5 


30 


400-410 


405 


3.98 x 10-7 


7.31 x 10-7 


55.3 


34 


450-460 


455 


5.51 x 10-6 


8.69 x 10-6 


54.9 


54 


470-480 


475 


1.75 x 10-6 


2.52 x 10-6 


40.4 


36 


500-510 


505 


1.51 x IQ' 6 


1.99 x 10-6 


33.1 



reaches its maximum value of 56.4 kcal/mole at 400°C and then drops rapidly at 
470 and 500°C to values of 40.2 and 33.1 kcal/mole, respectively. Note that Qc 
for pure A1 in the temperature range 300 to 500°C (573 to 773K) is constant at 
approximately 35.5 kcal/mole [Ref. 10]. 

Therefore, although the Al-2.0%Li alloy exhibits a similar stress dependence 
and formation of subgrain structures as observed in pure Al, the values of Q c are 
appreciably higher. Table 5 is a compilation of activation energy results for this 
alloy. The data were obtained by three different computational methods. The 
first method used graphical differentiation directly applied to the individual 
creep curves. The second method involved use of linear regression applied to 
the creep rate versus creep strain curves. The third method calculated Q c from 
the difference between the isothermal log e vs. log a plots for data obtained at 
constant stress. All methods involved similar values of strain rate which were 
then employed with equation 8 for determination of Qc. The values from the 
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Figure 18. Al-2.0%Li Activation Energy Curve Compared to Pure 

A1 
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direct analysis of the creep curves and from the creep rate curves (i.e. from the 
differentiated creep curves) yield close agreement, as expected. Figure 19 gives 
further insight into the behavior of the activation energy for the Al-Li system. 
This figure graphically compares Qc for A1 with 0.5, 1.0, and 2.0wt% Li 
additions. The data for the 0.5 and 1.0% Li additions are taken from the NPS 
study by Taylor [Ref. 5]. As Li content increases, the observed activation energy 
becomes progressively higher within the temperature interval 600 to 725K. The 
peak activation energy values are in order of Li addition: Qc for Al-2.0%Li 
peaks at 56.4 kcal/mole at 700K; Qc for Al-1.0%Li peaks at 54 kcal/mole and 
-700K; and Qc for Al-0.5%Li peaks at 51 kcal/mole at 700K to 750K. 

Table 5. SUMMARY OF Al-2.0%Li ACTIVATION ENERGY 

RESULTS IN KCAL/MOLE 



# 


Temp (°C) 


Mean Temp (°C) 


Creep Curves 


Creep Rate 


Log-Log Curve 


48 


300-310 


304.92 


47.4 


45.9 


42.5 


28 


350-360 


354.93 


52.3 


50.9 


55.9 


29 


400-410 


404.94 


57.5 


55.6 


49.0 


30 


400-410 


404.94 


55.3 


62.7 


49.0 


34 


450-460 


454.95 


54.9 


54.6 


54.4 


54 


470-480 


474.95 


40.4 


* 





36 


500-510 


504.95 


33.1 


* 





* Note: these values were not obtained due to limits in the data acquisition 
system 
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Figure 19. Activation Energy Versus Temperature for Al with 0.5, 

1.0, and 2.0% Li Additions 
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H. NORMALIZED RESULTS 

Further insight into the behavior of the Al-2.0%Li can be obtained by re- 
plotting the data as e/D vs. c/E on double logarithmic axes, as shown in Figure 
20. Diffusion and modulus data were those for A1 because data for Al-2.0%Li 
was unavailable. The data appears similar to the A1 data as modelled by the Wu- 
Sherby relationship [Ref. 12]: 

£ min= ( sinh a|) n (11) 

where K = 2 x 10^, b = Burger's vector (2.8 x 10'10m), a = 2600 and n = 5. 
The effective diffusion coefficient, D e ff, is essentially the lattice diffusion 
coefficient, Di, modified to account for the enhancement of diffusion resulting 
from pipe diffusion. The stress dependence of the data is in close agreement 
with that of equation 11. However two observations can be made: as temperature 
decreases, the degree of alloy strengthening relative to A1 increases; and, as the 
strain rate at a specific temperature decreases, the degree of alloy strengthening 
increases. This suggests that the temperature dependence of the normalizing 
values for the alloy is different from the temperature dependence of those values 
for the pure metal. 

Stacking fault energy and modulus are a function of temperature. If these 
functions for the alloy are the same as for the pure metal, then one would expect 
little or no variation in the normalized data for the two cases. However, as noted 
earlier, the activation energy for the alloy from 300 to 450°C is appreciably 
greater than for the pure metal. This may be an indication that the temperature 
dependence of stacking fault energy and modulus is also different for the alloy, 
leading to the apparent scatter of data in the normalized presentation. 
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Figure 20. AI-2.0%Li e /D vs. a/E as Compared to Pure A1 
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I. INTERPRETATION OF RESULTS 

First, the stress dependence of creep for the alloy is the same as that for pure Al. 
Second, the observation of sub-grain formation following the extensive primary 
stages of creep is also identical to the creep mechanisms of the pure metal. 
Third, the activation energy clearly exhibits a notably different temperature 
dependence than does the activation energy for pure Al. The activation energy 
may be considered a summation of self-diffusion, stacking fault energy and 
modulus components (equation 10). As noted earlier in Chapter II, the addition 
of Li to Al has the effect of increasing the modulus due to the effect of Li on 
bonding in the ordered structure. If the alloy were to undergo an order/disorder 
transition, e.g. in the temperature range between 400°C and 500°C, this could 
result in a more rapid decrease in modulus than for the pure metal and could 
account for the values of Qc being greater than those for self-diffusion in this 
temperature regime. 

While the creep characteristics of Al-2.0%Li resemble those of Al, there is 
strengthening due to the Li addition and the magnitude of the strengthening 
increases as temperature decreases. Possible factors to account for this are listed 
below. 

1. Activation Energy for Diffusion 

First, there may be a direct effect on the diffusion activation energy, 
that is, the rate at which atoms jump into and exchange with vacancies in the 
alloy. The determined activation energy for A1^6 diffusion in Al is 34 kcal/mole 
[Ref. 13]. However, most of the values for the activation energy for impurity 
diffusion in Al are found in the range of 28 to 32 kcal/mole [Ref. 13]. In 8090 
and 8091 the diffusivity of Li at 500°C is 2.5 x 10*9 cm^/sec, while that of Al is 
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Figure 21. Al-2.0%Li Log s vs. Log a as Compared to Pure Al: 

0.86T m , 0.75T m , 0.64T m 
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3.9 x 10*10 cm^/sec [Ref. 14J. These data suggest that the diffusion activation 
energy for Li in A1 is not appreciably different at this temperature. 

According to equation 7, the higher activation energy becomes, then the 
slower e becomes. The present creep data on Al-2.0%Li indicate that Qc for the 
alloy is significantly higher than Qc for the pure metal from 300 to 450°C (47.4 
to 54.9 kcal/mole) and then approaches that for A1 from 470 to 500°C (40.4 to 
33.1 kcal/mole). This explains, in part, why the creep rate of Al-2.0%Li at 
constant stress and the same homologous temperature is slower than that of the 
metal. 

2. Modulus of Elasticity 

In a random solid solution, there is little effect on bonding within the 
range of the solid solution. Most solid solutions do not show a strong influence 
on modulus of elasticity with alloy content, since the modulus reflects the way in 
which the average pair of atoms bond. If, on the other hand, there is an effect 
directly on the bonding between atoms, as could be reflected in an ordering 
reaction, causing an increased concentration of Li in the ordered region, an 
appreciable effect on the modulus of elasticity may be seen. 

By equation 7, E is proportional to the modulus-compensated stress, 
raised to the fifth power, (a/E)5. It is known that the room temperature 
modulus of elasticity for the alloy is higher than that for pure Al. Each wt.pct. 
of Li added to Al increases the modulus by 6%, and at room temperature the 
alloy's modulus of elasticity is reported to be 78.5 GPa [Ref. 15]. By 
considering the increase in modulus, as a result of the presence of the 2.0% Li in 
the alloy, then for constant stress, the e of Al-2.0%Li would be slower than that 
of Al. 
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It is also known that for any pure metal or simple alloy that the 
modulus of elasticity, overall, decreases with temperature. It is postulated, based 
on the work of Fox and Fisher[Ref. 2] and on the work of Radmilovic et al [Ref. 
3], that within the range of the solid solution, there is a tendency of the Li to 
form an ordered structure. Thus, the modulus of elasticity may exhibit a more 
rapid decrease with increasing temperature than does the modulus of pure Al at 
temperatures below, but near, the ordering temperature (expected to be ~700K 
based on the data of this research). 

If it is assumed that this apparent increase in activation energy is 
associated with the modulus of elasticity alone, then it is postulated that the elastic 
modulus as a function of temperature for the alloy, might appear as shown in 
Figure 22. On this figure, the data for the modulus of pure Al is shown by the 
solid line. The data for the modulus of the alloy is available at room 
temperature (300K) and is 78.5 GPa [Ref. 15]. The modulus of the alloy at the 
melting point was calculated using the following relationship [Ref. 2]: 

E = Kp.02 (12) 

where K is a physical constant, p is the average mass of the alloy and 0 is the 
Debye temperature. The temperature at the melting point of the alloy is 901 K 
and the calculated modulus of elasticity is 37 GPa. The observed effect upon the 
activation energy would arise if the alloy’s modulus were to decrease with 
temperature as shown by the dashed line. In the temperature interval of 600 to 
720K, the alloy has a steeper, more negative slope as a result of disorder through 
heating, or conversely, ordering upon cooling. The slope associated with the 
triangle represents a variation of modulus with temperature sufficient to account 
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Figure 22. Proposed Modulus of Elasticity as a Function of 

Temperature 
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for an increase in the creep activation energy from a value of 34 kcal/mole 
(associated with diffusion only), to a value of 55 kcal/mole (as observed 
experimentally). This slope was calculated using equation 10. Without using the 
Debye temperature, the proposed modulus of the alloy is expected to decrease to 
values below the modulus of pure A1 because the melting temperature of the 
alloy is less than for the metal. 

3. Stacking Fault Energy 

It was shown in Chapter II that under the condition of climb control, 
the creep rate is described by equation 7 and that the creep rate is proportional to 
the cube of the stacking fault energy, (y)3. This suggests that if the y of the alloy 
is lower than that of A1 then, at constant stress, the creep rate will be slower than 
that of Al. 

The ordering reaction could also have an influence on the stacking fault 
energy. In the case of pure Al, the best evidence is that, essentially, there is no 
effect of temperature on stacking fault energy. The effect of Li upon the 
stacking fault energy of Al is not known It is acknowledged that in the search 
for accurate physical models, the stacking fault energy is a difficult quantity to 
measure, and there are no data in the literature that are widely accepted. 
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V. CONCLUSIONS 



The following conclusions can be drawn concerning the behavior and 
characteristics of the binary alloy Al-2.0%Li: 

1. Al-2.0%Li exhibits a creep response consisting of a pronounced primary, 
a secondary, and a tertiary phase. This characteristic curve shape is similar to 
that for pure A1 and demonstrates that the steady-state creep behavior of the class 
II Al-2.0%Li alloy (metal class) is controlled by some form of dislocation climb. 

2. Considering the stress dependence of each corresponding strain rate, the 
stress exponent, n, varies from ~6.7 at 300°C to ~4.9 at 500°C, and is similar to 
that reported for A1 (n ~ 5). 

3. Al-2.0%Li data at 500°C correspond to within a factor of 2 to data 
reported by Park et al for a similar alloy using double shear creep testing. 

4. Activation energy obtained for Al-2.0%Li from isothermal creep and 
from temperature cycling testing indicates an anomously high activation energy 
from 300°C to 450°C. Activation energy for creep reaches a maximum value of 
55 kcal/mole, a difference of about 20kcal/mole higher than that for Al at a 
temperature of 400°C. This may result from the temperature- dependence of 
modulus or stacking fault energy or through additional processes such as 
ordering of the Li in the solid solution. 

5. For the same homologous temperature the creep strength of Al-2.0%Li is 
higher than that of Al; a possible decrease in the stacking fault energy combined 
with a measured increase in the activation energy for creep in Al with the 
addition of Li may responsible for this finding. 
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VI. RECOMENDATIONS 



1. Investigate alternative methods to assess the order/disorder reaction. 

2. Determine modulus as a function of temperature using ultrasonic 
vibration methods. 

3. Investigate microstructure with Transmission Electron Microscopy 
(TEM). 

4. Investigate the effects of various elements in an Al-Li-X. 



54 



APPENDIX A. STRESS STRAIN CURVES 
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Figure 22. Stress Strain Curves at 350°C for Various Strain Rates 
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Figure 23. Stress Strain Curves at 400°C for Various Strain Rates 
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Figure 24. Stress Strain Curves at 500°C for Various Strain Rates 



57 



TRUE STRAIN (IN/IN) 



APPENDIX B. CREEP CURVES 




Figure 25. Creep Curve at 300°C for a Stress of 21.2 MPa: 

Eniin = 6.40 x 10*5 sec'l 
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Figure 26. Creep Curve at 300°C for a Stress of 19.0 MPa: 

Emin = 3.25 x 10'^ sec’l 
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Figure 27. Creep Curve at 300°C for a Stress of 13.0 MPa: 

Emin = 4.24 x 10'6 sec - 1 
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Figure 28. Creep Curve at 350°C for a Stress of 21.2 MPa: 
8 min = 1.90 x 10*3 sec* ^ 
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uic snj_L 



Creep Curve at 350°C for a Stress of 12.9 MPa: 
e min = 8.88 x 10*^ sec* ^ 
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Figure 30. Creep Curve at 350°C for a Stress of 7.00 MPa: 

e min = 1.93 x 10*^ sec*^ 
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Figure 31. Creep Curve at 400°C for a Stress of 7.10 MPa: 

Emin = 9.00 x 10*5 S ec*l 
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Figure 32. Creep Curve at 400°C for a Stress of 5.27 MPa: 

£ min = 1.71 x 10"^ sec" ^ 
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Figure 33. Creep Curve at 450°C for a Stress of 2.35 MPa: 

e min = 4.43 x 10*^ sec'l 
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Figure 34. Creep Curve at 500°C for a Stress of 3.02 MPa: 

£ min = 2.43 x 10*^ sec'l 
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Figure 35. Creep Curve at 500°C for a Stress of 2.65 MPa: 
£min = 1-49 x 10*4 sec -l (Arrested Test) 
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Figure 36. Creep Curve at 500°C for a Stress of 2.25 MPa: 

e min = 6.59 x 10*^ sec* ^ 
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Figure 37. Creep Curve at 500°C for a Stress of 1.84 MPa: 

£ min = 1.20 x 10"^ sec* ^ 
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Figure 38. Creep Curve at 500°C for a Stress of 1.63 MPa: 
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APPENDIX C. TEMPERATURE CYCLING CREEP CURVES 




Figure 39. Creep Curve at 300-310°C for a Stress of 11.9 MPa: 
el = 2.10 x 10'6 sec*l & 82 = 4-30 x 10'6 sec'l 
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Figure 40. Creep Curve at 400-410°C for a Stress of 3.03 MPa: 



8 1= 3.98 x 10* 7 sec'* & 82 = 7 -31 x 10' 7 sec'l 
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Figure 41. Creep Curve at 400-410°C for a Stress of 3.03 MPa: 



61 = 1.18 x 10'6 sec'l & 62 = 2.22 x 10’^ sec*l 
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Figure 42. Creep Curve at 450-460°C for a Stress of 2.46 MPa: 
£ 1 = 5.15 x 10*6 sec*l & £2 = 8.69 x 10*6 sec* 1 
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Figure 43. Creep Curve at 470-480°C for a Stress of 2.03 MPa: 
8 1 = 1.75 x 10“6 sec-1 & ^2 = 2.52 x 10-6 sec -l 
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Figure 44. Creep Curve at 500*510°C for a Stress of 1.64 MPa: 
e 1 = 1.51 x 10*6 sec*l & Z2 =1.99 x 10*6 sec*l 
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APPENDIX D. CREEP RATE CURVES 




Figure 45. Creep Rate Curve at 300°C for a Stress of 21.2 MPa: 

Emin = 6.10 x 10-5 sec-1 
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Figure 46. Creep Rate Curve at 300°C for a Stress of 19.0 MPa: 

£min = 3.32 x 10'^ sec'l 
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Figure 47. Creep Rate Curve at 300°C for a Stress of 13.0 MPa: 

£ min = 3.76 x 10'^ sec" ^ 
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Figure 48. Creep Rate Curve at 350°C for a Stress of 21.2 MPa: 



e min = 4.96 x 10' 3 sec* 1 
8 1 




Figure 49. Creep Rate Curve at 350°C for a Stress of 12.9 MPa: 



emin = 8.57 x 10'^ sec'l 
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Figure 50. Creep Rate Curve at 350°C for a Stress of 7.00 MPa: 

£min = 1-94 x 10‘6 sec** 
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Figure 51. Creep Rate Curve at 400°C for a Stress of 7.10 MPa: 

£min - 9.66 x 10*^ sec'l 
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Figure 52. Creep Rate Curve at 400°C for a Stress of 5.27 MPa 

£ min “ 1.73 x 10“^ sec“l 
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Figure 53. Creep Rate Curve at 450°C for a Stress of 2.35 MPa: 

emin = 4.37 x 10'^ sec‘1 
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Figure 54. Creep Rate Curve at 500°C for a Stress of 5.48 MPa: 

£ min = 4.83 x 10* ^ sec*^ 
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Figure 55. Creep Rate Curve at 500°C for a Stress of 3.02 MPa: 

£ min = 2.43 x 10*“^ sec* ^ 



88 




CD 


ix 


r^ 


rvj 


LD 


LD 


LD 


LD 


— < 


ID 


CD 


r\_ 


I 


1 


1 


i 


Q 


— 


OJ 


0 


LJ 


LJ 


LJ 


LJ 


0 


0 


— 


— 


(J) 


m 




. 


0 


0 


0 


0 


. 


. 


. 


in 


• 


0 


0 


0 


CD 




LD 






* 


0 


0 


J 














1- 


33S ‘iritis 


NIticti 


IS 





Figure 56. Creep Rate Curve at 500°C for a Stress of 2.25 MPa 

£min = 6.36 x 10* 5 sec** 
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Figure 57. Creep Rate Curve at 500°C for a Stress of 1.84 MPa: 

Emin = 1.17 x 10‘5 sec'l 
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TRUE STRRIM, IN/IN 




Figure 58. Creep Rate Curve at 500°C for a Stress of 1.63 MPa: 



e min - 6.52 x 10'^ sec*l 

9 1 



APPENDIX E. TEMP. CYCLING CREEP RATE CURVES 




Figure 59. Creep Rate Curve at 300-310°C for a Stress of 11.9 MPa: 



e l = 2.46 x 10*6 sec*l & e2 = 4.92 x 10*6 sec*l 
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Figure 60. Creep Rate Curve at 400-410°C for a Stress of 3.03 MPa: 



8 1 = 4.02 x lO’ 7 sec* 1 & 82 = 7.90 x 10* 7 sec* 1 
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Figure 61. Creep Rate Curve at 400-410°C for a Stress of 3.03 MPa: 



el = 1.20 x 10*6 sec*l & £2 = 2.21 x 10*6 sec‘1 
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Figure 62. Creep Rate Curve at 450-460°C for a Stress of 2.46 MPa: 



e l = 8.73 x 10*6 sec‘1 & £2 = 5.19 x 10*6 sec'l 
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Figure 63. Creep Rate Curve at 470-480°C for a Stress of 2.03 MPa: 
8 1 = 2.13 x 10*6 sec‘l & 8 2 = 2.52 x 10*6 sec*l 
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Figure 64. Creep Rate Curve at 500-510°C for a Stress of 1.64 MPa: 



£ 1 = 1.99 x lO' 6 sec-1 & e 2 = 2.77 x 10' 6 sec’ 1 



97 



APPENDIX F. EXAMPLE DATA TABLES FROM PROGRAM 



FILENAME 
RDG it 


IS TE5T240 
TRUE57RAIN 


TIME ,3EC 


RDG it 


TRUESTRAIN 


TIME ,SEC 


n 


+7 . 353E-03 


+5.010E+00 


4 


+1 . 550E-02 


+1 .501 E+01 


6 


+ 2.21 IE-02 


+2.501 E+0 1 


8 


+2 . 837E-02 


+3 . 50 1 E+0 1 


10 


+3 . 376E-02 


+4.501E+01 


12 


+3 . 920E-02 


+5 . 502E+0 1 


1 4 


+4 . 4405-02 


+6 . 502E+0 1 


15 


+4. 904E-02 


+7.502E+01 


19 


+5 . 407E-02 


+8 . 502E+01 


20 


+ 5 . S53E-02 


+9 . 502E+01 


22 


+6.328E-02 


+1 . 050E+02 


24 


+6 . 753E-02 


-1 . 150E+02 


25 


+7.199E-02 


+1 . 250E+02 


28 


+7 . 607E-02 


+1 . 350E+02 


30 


+8.031 E-02 


+1 . 450E+02 


32 


+8.41GE-02 


+1 . 550E+02 


34 


+8.305E-02 


+1 .551 E+02 


36 


+9. 170E-02 


+1 . 750E+02 


38 


^9.531 E-02 


+ 1 .S50E-02 


40 


+ 9 . 878E-02 


+1 . 950E+02 


42 


•rl . 023E-0 1 


+ 2. 05 IE-02 


44 


+ 1 . 055E-0 1 


+2.151 E+02 


45 


+ 1 . 089E-0 1 


+2.251 E+02 


48 


+ 1 . 121E-01 


+2.351 E+02 


50 


+1 . 1 53E-01 


+2. 451 E+02 


52 


+1.1 84E-01 


-2. 551 E+02 


54 


+1 .215E-01 


+ 2.551 E-02 


55 


+ 1 .2446-01 


+2.751 E+02 


58 


-1 .274E-01 


+2.851 E+02 


50 


+ 1 . 303E-0 1 


+2.951 E+02 


52 


■H .33 IE-01 


t5 . 05 1 E+02 


54 


+1 . 360E-01 


-3.151 E+02 


65 


+1 . 338E-0 1 


+3.251 E-02 


53 


+1 . 41 7E-01 


+3 . 35 1 E+02 


70 


+ 1 .445E-01 


+3.451 E+02 


( L. 


+1 .474E-01 


+3. 551 E+02 


74 


+ 1 . 502E-0 1 


+3 . 55 1 E+02 


75 


+1 . 529E-01 


+3.751 E+02 


78 


+1 . 553E-0 1 


+3.351 E-02 


80 


+ 1 . 535E-01 


+3.951 E+02 


82 


+1.51 3E-0 1 


+4. 051 E+02 


84 


+ 1 . 5 40E-0 1 


+4 . 1 5 1 E-02 


35 


+ 1 . 6 6 8 E - 0 1 


+4.251 E+02 


38 


+1 . 695E-01 


+4.351 E+02 


90 


+1 . 723E-0 1 


-4.451 E+02 


82 


+1 . 750E-0 1 


+4.551 E+02 


94 


+1 .7775-01 


+4.551 E+02 


96 


+1 . 804E-0 1 


+4 .751 E+02 


98 


+ 1 . 3 3 1 E - 0 1 


. 85 1 E-02 


100 


+1 .3596-01 


+4 . 95 1 E+02 


1 02 


+1 . 386E-0 1 


-5.051 E-02 


1 04 


+1 . 913E-01 


+5.151 E+02 


1 06 


+ 1 . 940E-01 


+5.251 E-02 


108 


+1 . 963E-01 


-5.351 E-02 


1 10 


+1 . 995E-0 1 


+5.451 E+02 


1 12 


+2 . 023E-01 


+5.551 E+02 


1 1 4 


-2.051E-01 


-5.651 Er02 


1 16 


+2.0786-01 


+5.751 E+02 


1 13 


+2 . 1 05E-01 


-5 . 851 E+02 


120 


+2.1 33E-0 1 


-5.351E-T02 


1 22 


+2. 159E-01 


+5.051 E-02 


1 24 


+2 . 1 87E-01 


+6 .151 E + 02 


1 26 


+2.213E-01 


+6.251 E+02 


128 


+2 . 240E-0 1 


+6.351 E+02 


130 


-2.263E-01 


+6 . 45! E+02 


132 


+2.2946-01 


+6 . 55 1 E+02 


1 34 


+2.322E-0I 


+6.551 E+02 


1 35 


+Z.348E-01 


+6. 751 E+02 


133 


+2 . 376E-0 1 


+6.851 E+02 


1 40 


+2.401 E-0 1 


+5.551 E+02 


1 42 


+2 .4295-01 


-7 . 052E-02 


1 44 


+2 . 454E-0 1 


+7. 151 E+02 


1 45 


^2.4825-01 


+7.251 E+02 


1 48 


+2 . 506E-0 1 


-7 . 352E+02 


150 


+2 . 533E-0 1 


+7.451 E+02 


152 


+2 . 558E-0 1 


+7 . 552E+02 


154 


^2 . 5855-01 


+7 . 652E-02 


156 


+2 . 608E-0 1 


+7 . 752E+02 


1 58 


+2 . S34E-0 1 


+7 . 852E+02 


150 


+2.6576-01 


+7 . 352E+02 


1 62 


+2 . 534E-0 1 


+8 . 052E-02 


1 64 


+2.7056-0! 


+8. 152E+02 



Figure 65. Creep Data Table 
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1G6 


+2 . 732E-01 


+8 . 252E+02 


168 


+2.754E-01 


+8 . 3S2E+02 


170 


+2 . 780E-0 1 


+8 . 452E+02 


172 


+2 . 803E-0 1 


+3 . SS2E+02 


174 


+2 . 828E-0 1 


+8 . 652E+02 


176 


+2.850E-01 


+3 . 752E+02 


178 


+2.875E-01 


+8 . 852E+02 


180 


+2. 897E-01 


+8 . 9S2E+02 


182 


+ 2 . 922E-0 1 


+9 . 052E+02 


1 84 


+2.944E-01 


+9. 152E+02 


186 


+2 . 970E-0 1 


+9 . 252E+02 


1 88 


+2.992E-01 


+9 . 3E2E+02 


1 80 


+3 . 0 1 8E-0 1 


+9 . 452E+02 


1 92 


+3.040E-01 


+9 . SS2E+02 


194 


+3 . 064E-0 1 


+9 . 652E+02 


1 96 


+3 . 087E-0 I 


+9 . 752E+02 


1 98 


+3. 1 12E-01 


+9 . 852E+02 


200 


+3. 134E-01 


+9 . 9S2E+02 


202 


+3. 159E-01 


+1 . 00SE+03 


204 


+3 .181 E-0 1 


+1.01 EE + 03 


206 


+3 . 206E-01 


+ 1 . 025E+03 


208 


+3 . 229E-01 


+ 1 . 03SE+03 


210 


+3 . 254E-0 1 


+1 . 045E+03 


212 


+3 . 276E-0 1 


+ 1 . 055E+03 


214 


+3.301 E-0 1 


+1 . 055E+03 


216 


+3 . 323E-0 1 


+1 . 075E+03 


218 


+3 . 348E-0 1 


+ 1 . 085E+03 


220 


+3 . 370E-0 1 


+1 . 095E+03 


n nn 

iL t— £. 


+3 . 395E-0 1 


+1.1 0SE+03 


224 


+3.417E-01 


+1.11 5E+03 


226 


+3.441 E-0 1 


+1.1 25E+03 


4. W 


+3 . 463E-0 1 


+1.1 35E+03 


230 


+3.487E-01 


+1 . 145E+03 


232 


+3 . 508E-0 1 


+1.1 BBE+03 


234 


+3 . 533E-0 1 


+1.1 65E+03 


236 


+3.554E-01 


f 1 . 175E + 03 


238 


+3.578E-01 


+1.1 85E+03 


240 


+3 . 602E-0 1 


+1 . 1 95E+03 


242 


+b . 6b5E-0 1 


+ 1 . 205E 4 '03 


244 


+3 . 659E-0 1 


•H . 2 1 5E + 03 


2 46 


+ 3 . 533E-0 1 


+ 1 . 225E+03 


248 


+3.714E-01 


+1 . 235E+03 


250 


+3.744E-01 


+1 . 24SE+03 


252 


+3 . 769E-0 1 


+ 1 . 255E+03 


254 


+3.798E-01 


+ 1 . 265E+03 


256 


+3.S24E-01 


+1 . 27SE+03 


258 


+3 . 853E-0 1 


+ 1 . 285E-f*03 


260 


+3 . 378E-0 1 


+1 . 29SE+03 


262 


+3.906E-01 


+1 . 305E+03 


264 


+3 . 932E-0 1 


+ 1.31 5E + 03 


266 


+3 . 960E-0 1 


+ 1 . 32SE+03 


268 


+i . 986E-0 1 


+ 1 . 335E+03 


270 


+4.015E-01 


+ 1 . 34SE+03 


272 


+4 . 042E-0 1 


+ 1 . 355E+03 


274 


+4 . 072E-0 1 


+1 . 3G5E+03 


276 


+ 4. 100E-01 


+ 1 . 375E+03 


278 


+ 4. 1 3 1 E-0 1 


+ 1 . 385E+03 


280 


+4.161 E-0 1 


+ 1 . 395E + 03 


282 


+4. 1 5ZE-01 


+1 . 40EE-03 


234 


+4.223E-01 


+ 1 .41 5E+03 


286 


+ 4 . 256E-0 1 


+1 . 425E+03 


288 


+4.287E-01 


+ 1 . 435E+03 


290 


+4.321E-01 


+1 . 44EE+03 


n Qn 


+4 . 353E-0 1 


+ 1 . 4SSE+03 


294 


+4 . 387E-0 1 


+ 1 . 46SE+03 


296 


+4.420E-01 


+ 1 . 475E+03 


293 


+4.455E-01 


+ 1 . 485E+03 


300 


+4 . 487E-0 1 


+1 . 495E+03 


302 


+4 . 523E-0 1 


+1 . 505E+03 


304 


+4 . 555E-0 1 


+ 1 . 5 1 5E + 03 


306 


♦4 . 539E-0 1 


+ 1 . 525E-r03 


308 


+ 4 . 52 1 E-0 1 


+1 . S3SE+03 


310 


+4 . 655E-0 1 


+ 1 . B45E+03 


312 


+ 4 . 686E-0 1 


+ 1 . E5BE+03 


314 


+4.720E-01 


+1 . 565E+03 


3 1 6 


+4.751 E-0 1 


+ 1 . 5758^03 


318 


+4.786E-01 


+1 . E8SE+03 


320 


+4 . 8 1 6E-0 1 


+ 1 . 595E+03 


322 


+4.350E-01 


+ 1 . 605E+03 


324 


+4 .880E-01 


+1.61 SE+03 


325 


+4.913E-01 


t 1 . 625E+ 03 


328 


+4. 944E-01 


+ 1 . 63EE+03 


330 


+4.977E-01 


+ 1 . 64SE+03 


332 


+5.009E-01 


+ 1 . SSEE+03 


334 


+5 . 043E-0 1 


+ 1 . 88 SE+03 


336 


+5 . 075E-0 1 


+ 1 . 67EE+03 


338 


+ 5.11 IE-01 


+ 1 . S35E-?-03 


340 


+5. 145E-01 


. +1.695E+03 



Figure 65. Creep Data Table (Continued) 
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FILENAME IS 


TEST240 




INTERNAL 


AUG STRAIN 


STRAIN RATE 


2 - 12 


+2 . 328E-02 


+6 . 368E-04 


in on 


+5. 124E-02 


+4.81 4E-04 


22- 32 


+7 . 372E-02 


+4. 1 76E-04 


32- 42 


+9 . 324E-02 


+3.631E-04 


42- 52 


+1 . 104E-01 


+3.216E-04 


52- G2 


+1 . 257E-0 1 


+ 2 . 935E-04 


62- 72 


+ 1 . 402E-0 1 


+2.857E-04 


nn _ g? 


+1 . 544E-0 1 


+2 . 793E-04 


82- 92 


+ 1 . G82E-0 1 


+2 . 728E-04 


92- 102 


+1 .818E-01 


+2.71 6E-04 


102- 112 


+1 . 954E-01 


+2.745E-04 


112- 122 


+2. 09 IE-01 


+2 . 730E-04 


122- 132 


+2 . 227E-0 1 


+2 . 686E-04 


132- 142 


+2. 36 IE-01 


+ 2 . 706c. -04 


142- 152 


+2.494E-01 


+2 . 575E-04 


152- 162 


+2.621 E-0 1 


+2.5UE-04 


162- 172 


+2.743E-01 


f 2 . 375E-04 


172- 182 


+2.362E-01 


+2 . 390E-04 


182- 132 


+2.981 E-0 1 


+2.349E-04 


1 92- 202 


+3 . 099E-0 1 


+2 . 394E-04 


202- 2 1 2 


+3 . Z 1 SE-0 1 


+ 2 . 336E-04 


^ | n_ n n n 


+3 . 335E-0 1 


f2 . 36SE-04 


222- 232 


+3 . 4S2E-0 1 


+2 . 277E-04 


232- 242 


+3 . 57 1 E-0 1 


- 2 . 48 3E -04 


242- 252 


-3.701 E-0 1 


+2.731 E-04 


252- 262 


+3 . 93SE-0 1 


+2 . 735E-04 


262- 272 


+3.974E-01 


+2 . 722E-04 


272- 232 


+4 . ] i 7E-01 


+3 . 004E -04 


282- 292 


-4 . 273E-0 1 


-3.21 3E-04 


252- 302 


+4 . 438E-0 1 


+3.399E-04 


302- 312 


->-4 . 605E-0 1 


+3 . 260E-04 


312- 322 


+ 4 . 76 3E-0 1 


+3 . 27SE-04 


322- 332 


+4.929E-01 


+3.1 76E-04 


332- 342 


TD . 095E-0 1 


^3 . 460E-04 


342- 352 


-5 . 278E-0 1 


+3.857E-04 


352- 362 


^5 . 480E-0 1 


t-4 . 1 96E-04 


362- 372 


+5 . 6 95E-0 1 


+4.424E-04 


372- 382 


+5.92SE-01 


+4 . 877E-04 


332- 392 


+6. 17SE-01 


+ 5 . 1 40E-04 


392- 402 


+6 . 46 5E-0 1 


+6 . 323E-04 


402- 412 


+6.832E-01 


+3.361 E-04 


412- 422 


+9 . 756E-0 1 


+ 1 . 0 8 5 E - 0 2 


422- 432 


+ 1 . 247E+00 


+ 1 . 1 49E-06 


Figure 66 


. Creep Rate Data Table 
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APPENDIX G. COMPUTER PROGRAMS FOR CREEP DATA 



100 


READ 


A » N > 


XI, 


LI 




110 


FOR 


1= 1 TO N 








120 


READ 


X, Y 








130 


S = Y/A 








140 


C = 


no«Ln/cxn 






150 


E = 


CX*C)/5 








160 


31 = 


S H ( 1 + E ) 








170 


El = 


LOGC1+E) 








180 


PRINT TAB ( 0 ) ; X 


; TABC 08 1 ; Y sTABC16);S 


;TAB(32 ) :E ;TAB(A3) :S1 ;TABC571 ;E1 


190 


NEXT 


I 








200 


DATA 


•01642 


, 


17 , 314.68 


.721 


210 


DATA 


0 


, 


7 




220 


DATA 


5 


, 


7.4 




230 


DATA 


10 


, 


7.35 




240 


DATA 


15 


, 


7.25 




250 


DATA 


20 


, 


7.2 




255 


DATA 


44 


, 


6.5 




260 


DATA 


68 


, 


5.9 




270 


DATA 


92 


» 


5.3 




280 


DATA 


116 


, 


4 .8 




290 


DATA 


140 


, 


4.3 




300 


DATA 


164 


, 


3.9 




310 


DATA 


188 


, 


3.55 




320 


DATA 


212 


, 


3.3 




c«w0 


DATA 


236 


, 


2.9 




340 


DATA 


260 


, 


2.425 




350 


DATA 


284 


, 


1.6 




360 


DATA 


3 08 


, 


0 
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10 

15 

23 

30 

35 

40 
45 
50 
55 
60 
65 
~3 
75 
80 
35 
90 
95 
100 
105 
I 10 
115 
120 
1 25 
130 
135 

U0 
1 45 
ISO 
155 
160 
1 65 
170 
175 
180 
185 
190 
195 
200 
205 
210 
2 1 5 
220 
225 
230 
235 
240 
245 
250 
255 
260 
255 
270 
2~*5 
290 
295 
230 
235 
-300 



310 
215 
32 0 



1 Progran fc r running tuo creep nacnines 

• Written 10-06-38 Ton Kellogg 

• Revised 10-06-39 Li EARL F. GOOOSON , 3R. 

• Stored as QTJ2REPT 
OUTPUT 709; 'SI* 

Olfl 0n_orf<2) ,Unit*<2)C 101 

DIM Strain_1 { 5000 > ,Stram_2< 5000 > ,Tyne_1 <5003 ) f Tyne_2<5000 ) 
DIM T_3< Z ) , 7_e( 2 ) ,T_i ( 2 > ,Rdg< 2 ) 

Nr_pts-5300 1 

SCLEMR 



Uanaole definitions: 

Qn_off(I) ... State of unit I 0-off, I -on 
Units ... Label for softkey 

Strain_l(), Strain_2( ) ... Readings fron units 1 
Tyne_1(), Tyne_Z( ) ... Tine of readings 
T_0( ) ... Start tine fron systen 
T_e< ) ... Elaosed t me 
T_i ( ) ... Clock t me 
Rdg( > ... Counter for readings 
PRINT X tS ,X_d* 



GOTO Main^nenu 
Set-up: 1 

Rdg< 1 ) -0 
Rdg( 2 ) -0 
GCLEAR 
SINIT 

INPUT "Specify max time < seconds ) for test 1 * ,Max_t ine.1 
Lvot_cal_l --. 1 1 incnes per volt 

INPUT "Specify LOOT 1 calibration (default .1 in/U )“ ,Lva:_cal_1 



Gaqe_ 1 - . 5 

INPUT "Soecify 51 spec, gage length, incnes .( Default- .5 ,Gag-_l 
INPUT *3oeci f y max tme (seconds) for test 2 " ,Max_t ine_2 
Lvdt_cai_2-- . 1 'inches per volt 

INPUT "Soecify LOOT 2 calibration (default .1 in/U )* ,Lvat_cai_2 
Gage_2- . 5 

INPUT "Soecifv 52 spec, gage length, me nes . ( De f au 1 1 - . 5 ; * .Gage_2 
Max_t i ne-0 

IF *!ax_tine_f>f1ax_Une AND Max_t ine_ 1 >Max_t me_Z THEN 
Max_t me-hax_t me_l 
ELSE * 



me-Max_t me_2 

END IF 



fim_5 train-0 

INPUT "Soecify min 7 . strain desireo ( De f au 1 1 -0 ) “ ,M i n_s tra l n 
INPUT “Specify max 7 . strain aes ir-a " ,Max_s t ra l r 
P^strai n-Max_s tram- Mi n_s train 

graphics on 

VIEWPORT 3.100.10.100 

UIN0CU -Max_t me ♦ . 2 ,Max_t me ,Min_s train-. I ’^strain ,Max_s trains . 1 *R_st-ain 

CLIP 0 ,Max_t me ,Min_ strain ,f1ax_stram 

AXES Max_t me/ 1 0 .Restrain/ 1 0 ,0 ,Mm_s train 

SLIP OFF 

LGP6 5 

CSI2E 3 

IF Max_t mev-1 000 TmEN Steo_tine- l 0 
IF M ax_t me> I C00 THEN Steo_tme-5 
FOR 1-0 TO . H ax_t STEP Max_t me/ 5 1 eo_ t me 
M0UE I ,Min_5train-.35*P_5train 
LABEL USING "K";I 
NEXT I 

MOVE Max_t me/ 2 ,f1n_strain-. 1 *R_s train 
LABEL USING Ti"Tme, seconds” 
i ops s 



Figure 68. Computer Program to Acquire Creep Data and Plot Creep 

Curves 
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325 FOR I»MiH_5train TO Hax^atrain STEP R_atrain/10 
330 HOVE -.01 *Ha*_t :me , I 
335 LABEL USING - K “ ; I 

340 ne:< t i 

345 MOVE 29*Ma*j ime ,R_atrain/2+Min_strain 
350 LORG 5 
355 OEG 
360 LOIR 93 

365 IF Stra in_type-2 THEN LABEL USING Strain' 

370 IF Strain_c y ce-1 THEN LABEL USING " K " : " * True Strain- 

375 LOIR 0 

330 LORG 5 

385 PRINTER IS I 

390 FOR 1-1 TO 2 

395 On_off(I>-0 

400 Uni t S< I )•’ 4"XUALS( I )& • i a OFF* 

405 T_etI>-1.E-99 

410 NEXT I 

415 Tyme_int_l •< Max_t ime_1 /4999 ) ISeta up tine 

420 Tyme_int_2-< Max_t ime_2/4999 ) intervals 

425 Main^nenu: 1 

430 GOTO Keya_aetup 

435 Hain_nenu_1i 1 

440 GOSUB Time_interva 1 

445 ttain_nenu_idle: GOTO Main^menuJ 

450 Key a_set up : 1 

455 OFP KEY 

460 ON KEY 0 LABEL UnitS(I) GOTO Umt_1_on_of f 
465 ON KEY 1 LABEL “P^int 1" GOTO Print_1 

470 ON KEY 2 LABEL “Plotl" GOTO Oia_plot_1 

475 ON KEY 3 LABEL “Sto/Rec1‘ GOTO Sto_rec_1 

490 ON KEY 4 LABEL *Neu Teat" GOTO Set_up 

465 ON KEY 5 LABEL UmtS<2> GOTO Uni t_2_on_of f 
490 ON KEY 6 LABEL ‘Print 2* SOTO PrmtJ 

495 ON KEY 7 LABEL *P!ot2 M GOTO Oia _plot_2 

500 ON KEY 9 unBEL ’Sto/Rec2‘ SOTO Sto_rec_2 

505 ON KEY 9 LABEL "QUIT" GOTO Quitter 

5 1 0 Key_setup J : 

515 GOTO Mai -t_menu J 

5Z0 Um t_' _on_o r e : 'Select unit 1 for cnange 

525 1-7 ~ 

530 GOTO Units_on_off 

535 Uni :_Z_on_cf f : 'Select unit Z for change 

540 1-2 ~ 

545 Uni ta_on_of f :> Turn umt(I) on/off 
On__of f ( I -0 THEN 
On_o f f ( I i*i 
TJX I J-7I.1EDATE 



NOTE: 10 volta - 1 inch movement 



IF 1-1 THEN 

PRINT 'Set LVOT unit one to 0 and preaa return' 
BEEP 200,. I 
INPUT UhichS 
OUTPUT “39; ‘ VR5AI ! " 

TJX I i-tiheqate 
ENTER 739iLvdt 1 
ELSE 

FRINT ’Set LUOT unit two to 0 and preaa return* 

3EE B 

INPUT uhicrl 
OUTPUT 73 a ; * VR5AI2 ' 

T 0( I )-TI.A£DATE 



550 
5E5 
555 » 
565 
570 
575 
560 
535 
590 
595 
500 
605 
610 
S! 1 
515 
6Z0 
6Z5 
620 
635 

640 

641 



Figure 68. Computer Program to Acquire Creep Data and Plot Creep 
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645 ENTER “09;Lvet2 

650 ENO IF 

5 = 5 Units:! - * 3*SUnLS( I Ji " is ON" 

553 EuSE 

655 0n_ o* * < I »"3 

670 »Jn i tS( I )• 3'*VALS( I)i* is OF"' 

575 ENO IF 

630 GOTO Kevs_setup 

655 Pr*nt_1 : 'Print data fron unit 1 

690 I-i~ 

695 60T0 Prirt_cata 

700 Print_2: 'Print data fron unit 2 

705 1-2“ 

710 Print_data.‘ 'Hardcooy of data points 
715 PRINTER IS 706 
700 PRINT 
705 PRINT 

720 PRINT "Unit : ’ 1 1 1 “ '{TIME0ATE 

735 PRINT " 3 Strain, X Tine, ninutes t Strain, 7. Ti 

ne, ninutes* 

740 FOR J-1 TO Nr_p t s- 1 STEP 0 

745 PRINT USING rnt 1 ; J ;S train* I ,J > 1 Tynet I . J ) j J + l iStrainl l , J-H >? Tynet 1 , J*1 > 
750 NEXT J 

755 Fntl: IMAGE 2( 50 ,5X .0.000ESZZ ,5X .0.000ES2Z ,7X > 

760 GOTO Xeys_setup 
7E5 Oi s_p lo:_ r : • 

770 1-1 

775 Oi s_o Iot_3 : 1 

7S0 60SU8 -^7icn_plctr 

735 60SU8 Plot_on 

790 GOTO nain_*enu 
795 0is_plot_2:~ • 

300 1-2 

805 GOTO 0is_plot_3 
810 Ulhicn^piotr : ' 

815 FOR 0-0 "0 4 

323 ON KE> 0 LABEL "CRT' GOTO Plotr.crt 

825 ON KEf 0*5 uA8Eu ‘Plotter'* GOTO Plotr_plotr 

8Z3 NEXT Q 

335 lJh_plotr_3pin: GOTO Uh_plotr_soin 

840 Plctr_crt: ' 

845 IF >1 THEN ? lotr_1 $- * CRT “ 

350 IF >2 THEN ? lctr_ZS- "CRT ' 

355 RETURN 

360 p lotr _j3 iotr : ' 

865 IF ;*» THEN P lo t r_ ' S-” p lot t er “ 

5"C IF 1-2 TnEN 2 ioxr_23- Plotter" 

875 PET’JRN 
880 P 1 ot_on : » 

835 Uhicn_strain: * 

893 INPUT *1-True strain or 2-engi neer ing s tra 1 n? * ,S tra 1 n_t ype 
395 IF S tra in^typev 1 OR Stram_type>2 THEN Uhicn_strain 
900 nm_strain-0 

9C5 INPUT ‘Specify nimnun strain desired ( Oe f aui t -0 > " ,Min_s tra in 

310 INPUT ‘Speci**y naxinun strain ce s ired ‘ ,i1ax_s tra in 

915 Min_t ine-0 

920 INPUT 'Soecify nimnun tine desired { Oe f aul t-0 1 “ ,Mtn_t me 

3Z5 INPUT ‘Specify naxinun tine oes ired' ,Max_* 1 n- 

330 PRINT "Strain ax 1 s :* ;Htn_s train 1 *-'j Max_s tra m 
535 PPINT ‘Tine ax 1 3 : * 1 Ml n_t me ,* * - * ;Max_t me 
940 PRINT 'Is this OK?* 

945 G0SU8 <es_no 

S53 IF Hnsweri- - N* THEN ?lot_on 

555 6CLEAR 

950 GRAPHICS ON 

QRR GCIRIJR Uh»m nlntr 
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970 


IF Plotr_’ 3- “CRT" AN0 l»l > CR ( Plotr_2S* 'CRT" AND 


1*2) THEN 


375 


ALr^A OF- 




990 


PLOTTER IS 3 .-INTERNAL* 




355 


Ui 

to 




990 


PLOTTER IS 70S , "HPGL M 




535 


ENQ IF 




1 000 


IF iPlctrJ$-“CRT* ANO 1-1) OR ( F lotr_2$- "CRT* ANO 


1-2) THEN 


1 005 


VIEWPORT 0.125,20,90 




1010 


ELSE 




1015 


VIEWPORT 0,125,12,95 




l 020 


ENO IF 




1025 


R_t me*Max_t ine-Min_t me 




1030 


R_strain-Max_strai n-M in_3 train 




1035 


WINOOU Min_t me- . 1 *R_t me ,Max_t me ,Min_s train* . 1 -Restrain ,Ma\_strai n 


1 040 


CLIP Min_t me ,rtax_t me , flings train , Max _s train 




1045 


AXES R_t me/ 1 0 ,R_s train / 1 0 ,Min_t me ,Minj train 




1050 


CLIP OFF 




1055 


CSIZE 3 




1060 


IF Max_t me<* 1 000 THEN 5tep_tine-l0 




1065 


IF Max_tme>1000 THEN Step_tine«5 




1070 


LORG 5 




1 075 


FOR J-Min^tine TO Max_tine STEP R_t ine/S tep_t me 




1080 


MOVE J ,Min_3train-.015*F_strain 




1085 


LABEL USING "K" s J 




1090 


NEXT J 




1095 


MOVE Min_t ine+ . 5*R_t me ,Min_9 train- . 09 ♦Restrain 




1 100 


LABEL USIN6 "K"!"Tine, seconos 4 




1 105 


LORG 3 




1110 


OEG 




1115 


FOR J-Mxn_strain TO Hax_strain STEP R_strain/10 




1 1 20 


MOVE Min_: me- . 03*P_t me , J 




1 125 


LABEL USING "K M iJ 




1130 


NEXT J 




1135 


LOIR 90 




1 140 


LCRG 5 




1 1 45 


MOVE M in_t me- . 09*R_t me ,Mm_a tra in* . 5 *P_3 trax r 




1150 


IF Strair_type*2 THEM 




1 155 


LABEL USING *K" ? *'7. Strain" 




1 1 60 


ELSE 




1 165 


LABEL USING “IT; "True Strain" 




1 170 


ENO IF 




1 175 


LOIR 0 




1 1 eo 


Ip 1 ot =0 




1 185 


OFF KEY 




1 1 90 


CLIP Min_: me ,Max_tine ,Mxn_s train ,Max_s train 




1155 


FOR J*l T 0 5000 




1200 


IF JOl THEN 01 - .tyne-Ty«e_x 




1235 


St rayn»0 




1210 


Tyne_x a 0 




1215 


IF 1*1 THEN 




1220 


Strayn*5train_1 ( J ) 




1225 


Tvme_<*Tyne_l < J ) 




1230 


ELSE 




1235 


5 trayn»S tra l n_2( J ) 




1 240 


Tyne_< *Tyne_2 ( J ) 




1245 


ENO lf~ 




1250 


ON ERROR GOTO 1260 




1255 


IF Strain_type*1 THEN S trayn-LOSM +( Str ayn/ 1 30 ) ) 




1260 


OFF ERROR 


- 


1265 


IF Tyne_<vMin_t me THEN Plot_next 




1270 


IF Tyne_x/ Max_*. ine THEN 




i Z 


T s 5< JOT 




1 250 


60^0 Plot_next 




1295 


ENO IF 




1290 


Iplomlplot + l 




1295 


IF I o 1 ot * 1 THEN MOVE Tvne x .Stravn 
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1300 IF IplotOl ANQ (Tyme_^»0 ANQ Strayn»0) OR Ql.:yme/T/me.< THEN Plst_next 
1305 IF JOI ANQ Stravn-0 ANO Tyne_x-0 TH£N Plot. next 
1313 DRAW Tyne.' . i; trayn 

I 3 1 5 Plot.next: NEaT J 

1330 IF Riotr.l S--CRT- OR P 1 otr.ZS- "CRT “ THEN 

1325 PENUP 

1330 ELSE 

1 335 FEN 0 

1340 End IF 

1345 RETURN 

1350 Yea.no: » 

1355 FOR 0-0 TO 4 

1360 ON KEY 0 LA8EL ‘Yes" GOTO Yeas 

1365 ON KEY 0+5 LABEL ‘No- GOTO Noo 
1370 NEXT 0 

1375 Yea.no.iale*. GOTO Yea.no.idle 
1380 Yess: ' 

1305 AnsuerS-’Y* 

1390 60T0 Yea.no.r* t 

1395 Noo: > 

1400 AnauerS-'N" 

1405 Yea_no _r»xs I 
1410 OF^ KEY 
1415 RETURN 
1420 S t o_r ec_ 1 : 1 
1425 I-l 

1430 GOTO S t or;_recal 1 
1 435 5 1 o_r-c_I : • 

1440 >2 

M45 GOTO Stor-.-ecall 
1 450 Store.racai 1 : ' 

1455 OFF ~E V 
1460 FOR 0-0 TO 4 

1465 ON KEY 0 LABEL "SaveQata 3 SOTO Store. I 
1470 ON k£Y Gt 5 LABEL "Pec. Data' SOTO Recall. 1 
U75 NEXT Q 

1480 Store.-eca: 1.1 : GOTO Store.recal i.l 
1485 Store 1 : i Storea data 

1450 INPUT ‘File nane for data atorage" .F.name* 

1495 S0SU8 Uhicn.dia* 

1530 ON ERROR GOTO Store.error 
1505 Store.2: 1 

1510 CREATE 3QAT F_nane5& 1 ,40000 

1515 CREATE 50AT r _nane5i ‘ _Y ' , 1 ,40000 

1520 CREATE 9 DAT “.naneiS “_Z " , 1 ,4000 

1525 Store.D.y: 1 

1530 OFF ERROR 

1535 Err_aof»l 

1540 ON ERROR SOTO Eof_error 

1545 ASSIGN QFile.s TO F_nane$S*_K* 

1550 IF 1-1 THEN OUTPUT 3F i le_x { T/ne.l ( * > 

1555 IF 1-2 THEN OUTPUT 3F l 1 e.x i Tyme_2( * > 

1 550 Err_eo f .1 : 1 

1555 ASSIGN 3File_* TO • 

1570 Err.eof-2 

1575 ASSIGN SFile.y TO F_nar»5&“_Y" 

15 = 0 IF I-l THEN OUTPUT 3F 1 1 e.y ; Strai n.M * ) 

1555 IF 1-2 THEN OUTPUT $F: le_y;5train.2( * ) 

1590 Er’-.eor.: : i 

1595 AS?IGN~3F i 1 e.y TO • 

1600 Err.eof-3 

1605 ASSIGN §F : 1 e.i TO ”.na neS& - .:* 

1610 OUTPUT 3F; l-.r ; I ,”.0( * ) ,T_e i * ) ,T.i ( * ) ,Rdg< • i ,ttax_: ine.l ,. M a<.t me.Z 

ISIS Err.eor.3: 1 

1620 ASSIGN §File_: TO • 

1625 OFF ERROR 
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1630 


GOTO Main.menu 


1535 


Eof.error: 1 


1 640 


OFF ERPGP 


1645 


ON ERROR 3070 Eof.error 


1550 


IF Err_eof-1 THEN Err_-of_1 


l 655 


IF Err_eof»2 THEN Err_eof_2 


1660 


IF Er>-_eof-3 THEN Err_eof_3 


1565 


GOTO Main.menu 


1670 


Uhicn.di sit : < 


1575 


OFF KEY 


1660 


FOR 0-0 TO 9 


1 635 


ON KEY Q LA3EL ““ GOTO Uhich.di sk.sp in 


1630 


NEXT 0 


1595 


ON KEY 0 LA3EL "92901-0* GOTO Onve.0 


1700 


ON KEY 2 _AEEL “82901-1" GOTO Orive.l 


1735 


ON KEY 9 LA8EL “INTERNAL* GOTO Orive.i 


1710 


Uhicn.di s»_spin: GOTO Uhich.disk.spin 


1715 


0rive_3: 1 


1723 


MASS ST0PA6E IS " :HP82901 ,700“ 


1725 


RETURN 


1730 


0rive_1 : * 


1735 


MASS STORAGE IS *' : HP8293 1 ,700 , 1 “ 


1740 


RETURN 


1745 


Onve_i: 1 


1753 


MASS STORAGE IS INTERNAL " 


1755 


RETURN 


1750 


S t ore_er-cr : i 


1765 


IF ERRN*54 THEN 


1770 


PRINT ‘Duplicate file name. Shall I overwrite 7 * 


1775 


G05U8 v ;s_no 


1 7S0 


OF4 ERFOR 


1765 


IF Answer$**Y" THEN Store_Z_y 


1750 


ENO IF 


1755 


IF ERRN-54 THEN 


1 800 


PRINT “Disk is full. Change disk or mass storage unit." 


1805 


BEEP 230.. 5 


1910 


OFF ERROR 


1815 


SOTO Store.! 


1620 


ENO IF 


1825 


IF ERRN-63 THEN 


1830 


PRINT Shut the bloomin' disk drive. It’s cold out -here 1 " 


1535 


OFF ERROR 


1540 


GOTO Store_' 


1545 


ENO IF 


1650 


IF ERRN-95 THEN 


1 555 


INITIALIZE ":“iMsusS 


1650 


OFF ERROR 


1865 


GOTO 5tore_2 


1973 


ENO IF 


1875 


IF ERRN-53 THEN 


1883 


PRINT ’Mass storage system error. Select another disk drive." 


1995 


OFF ERROR 


1850 


GOTO Store_l 


1855 


ENO IF 


1900 


PRINT "Error: " ; EPRN 


1505 


OFF ERROR 


1913 


GOTO Main.menu 


1915 


Recall.!: ■ 


1920 


INPUT ‘File name to be recalled (omit su f f l xes ) " ,F_name i 


1 925 


P D INT “Which diSK drive 7 " 


1 930 


30SU8 Ulhicn_disk 


i 525 


$>i:e_x >u A_hames& "_x ’ 


1 543 


ON EFRCR GOTO 1 S55 


1545 


IF I-l Tmcn ENTER @F i le.x j Tyme.1 ( * ) 


1553 


IF 1*2 T*£N ENTER 3F i ie_< » Tyme_2( • ) 


1555 


ASSIGN ?F;|e x TO • 
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I 950 Crr EFROR 

1955 ON ERROR 50 TO 1985 

1970 ASSIGN «F:le_y TO F_nan-5&*_v 

1975 I r 1-1 TrEN ENTER sF i 1 e_y 5 S t r a i n_1 ( • > 

1933 IF I-Z THEN ENTER OF \ le_y j 5tra i n_2( • ) 

1 S35 ASSIGN OFile_y TO * 

1 9S0 OFF ERROR 

1955 ON ERROR GOTO :010 

3300 ASSIGN •aF:ia_ r TO F_naneSi*_3* 

*• ^05 - N T t R OFi l*_z ; I ,T_3< ♦ ) , T_e\ • ) , T_i { • ) ,Rdg( • ) ,/1ax tine 1 ,{1ax tine 2 

Z010 ASSIGN -?FUe_r TO * 

2015 OFF ERROR 

2016 -actor-1 

2318 INPUT "Soecify nu 1 1 ip 1 1 cat ion factor for data. Def- 1 “ .Fact or 

2319 IF Factor-) THEN 

2023 50SUB Plot on 

2021 ELSE 

2022 FOP >1 TO 5000 

2023 IF I - ) THEN S t r a i n_ 1 ( J >- S tra l n_l ( J ) *Fac t or 

2324 IF 1-2 THEN Strain_2( J )«Strain 2(J)*Factor 

2025 NEXT J 

2027 G0SU8 Rlot_on 

2028 ENO IF 

2030 Ouitter: • 

2031 BEEP 2300,-1 
2335 FOR 0-0 TO 4 

2040 ON KEf C LABEL 'OUIT* GOTO Ouitter_1 
2045 ON KEY 2*5 LABEl ‘Continue' 1 GOTO Keys_aetuo 
2050 NEXT 0 

2055 Ou 1 1 1 er_i ale : GOTO Quitter_idle 
2060 OuitieO: 5TCP 
2265 T i'"e_mtervai : ’ 

2073 IF On_off ' ‘ )-0 THEN Tine_int_1 
2075 T_-( I )-TIrEQATt~7_0< 1 ) 

2080 IF T_-( 1 )>-Pdgv 1 )*Tyne_mt_1 THEN G0SU8 Reaa.l 
2085 T me_i nt_l : > 

2090 IF On_c7fC>«0 THEN RETURN 
2095 7_»( 2 )-T IMEQATE-T_3( 2 > 

2)00 IF 7_e<2) -Rag( 2 )-Tyne_i nx_2 THEN G0SU8 Read_2 

2105 RETURN 

2110 Pead_1 : i 

2115 Pdgt 1 l-Ragt I )+l 

2122 IF Rdgi l )>530O THEN 

2125 Ragt 1 >-5300 

2132 RETURN 

2135 ENO IF 

2UC IF Pagi i ;»« THEN 

2145 G0SU8 Oiaoiay_l_on 

2150 ENO IF 

2155 IF T_-( i >>Hax_t ine_1 THEN 
2 1 S3 3n_o f f ( 1 -0 

2155 ON KEY 0 LABEL '*1 OONE* GOTO Uni t_1_on_of f 
2170 ENO IF 

2175 OUTPUT 709 : ‘URSA 1 1 “ 

2 1 SO ENTER 739: Stra m_l < Pdg( 1 )) 

2185 Str a in_’ -dg<1 ) )- l C0*Lvdt_ca i_l • t S tra i n_l ( Rdg( 1 > )-Lvdt 1 )/Gage_1 
2130 r yne_l (Rcgl 1 ) >-*_-< 1 ) 

2185 LCRG 5 

2200 CSI2E 2 

2735 IF S :rair_t ype-2 THEN 

2210 70 OE Tyne_l f Rogv I ) > ,£tr ain_1 < Rcg( 1 ) ) 

22 15 ELSE 

2222 IN E-RCR SOTO 2230 

2225 HOVE 7yn-_l ( Rag( 1 )) ,L0G<Strain_1(Rdg'> 1 ) ) + 1 ) 

2233 OF- ERROR" 

2235 FnO IF 
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::-i0 


LrsEL USING " K “ ; “ 1 “ 


::45 


RETURN 


2250 


Raac_2: 1 


2255 


Rag< 2 )-Rdg( 2 - ♦ ) 


2250 


IF Rag(2u50C0 THEN 


::g5 


Reg* 2 )»E000 


2270 


return 


2275 


ENO IF 


2280 


IF Rdg(2>») T«EN 


2235 


GOSuB 0 i s a i a y_2_.cn 


2250 


ENO IF 


22=5 


IF T_*( 2 ine_2 THEN 


2330 


On_of f ( 2 i *0 


2235 


ON KEY 5 LABEL “:2 OONE" GOTO Uni t_2_on_of f 


23)0 


ENO IF 


2315 


OUTPUT 709; "VR5AI2 " 


2320 


ENTER 709; Stram_2( Rdg( 2 > ) 


2325 


Strain_2( Rag( 2 > >* I 00*Lvdt_ca 1_2*( Stra in_2( Rdg(2))-Lvdt2 )/Gage_2 


2330 


Tyne_2< Rag< 2 ) )-T_e< 2 > 


2325 


LORG 5 


2340 


C3IZE 2 


2345 


IF Stram_tyoe“2 THEN 


2350 


MOUE Tyne_2( Rag* 2 ) > ,Strain_2( Rdg( 2 ) > 


2355 


ELSE 


2360 


ON ERROR GOTO 2270 


2255 


NOUS 7 y me 2 ( Rdg( 2 > ) ,LOG( S tra in_2< Rdg( 2 ) >♦ ) ) 


2370 


OFF ERROR 


2375 


ENO IF 


2360 


LABEL USING " K " ; ‘ 2 “ 


2255 


RETURN 


22=0 


Oi splay_ ! _on: ' 


23 = 5 


Oi so_i • 1 


2400 


SEEP 2003, . 1 


2405 


RETURN 


2410 


Oiso Iay_2_on: ' 


2415 


Oi sp_2 - i 


2420 


RETURN 


2425 


ENO 


* 
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10 I PROGRAM TO COMPUTE STRAIN PATES GIVEN THE DATA DISC FROM A TEMPERATURE C 
YCLING TEST. 

30 ' IT IS USER FRIENOLY ANO MENU-DRIVEN. 

40 1 WRITTEN 10-1 9-89 BY LT EARL F. GOGOSQN ,SR . 

50 'EDITEO 10-21-39 3Y LT EARL F. GOOOSON.SR. 

SO DIM Str*ain_1 < 5000 > ,Tyme_l < 5000 ) t True_strain( 5300 > ,Str_rat e< I 000 ) .A str(100 
0 ) ” ~ 

71 OIM Log^a t e( 2000 > 

80 Nr_pnt 3-5000 

81 PRINTER IS 1 

90 1-1 

100 PRINT ‘PROGRAM TO CALC STRAIN RATES GIVEN THE OATA OISC FROM A TEMPERATURE 
CYCLING TEST. 1 

110 PRINT - HIT CONTINUE TO BEGIN" 

1 1 1 PAUSE 

113 GOTO Keys_setup 

1 1 4 Oise : I 

115 OFF ERROR 

120 PRINT "PLACE DATA OISC IN THE INTERNAL ORIVE." 

130 INPUT "FILENAME TO BE RECALLEO( OMIT SUFFIXES)* t F_nanei 

131 ON ERROR GOTO Oise 

U0 MASS STORAGE IS *: INTERNAL" • RECOVERS TIME 
ISO I OATA ARRAY 

160 I 

170 ASSIGN 3File_< TO F_nameS& "J< " 

180 ON ERROR SOTO 200 

190 ENTER @Fil*_A;7yne_l < • ) 

200 ASSIGN 3Fxie_< TO * 

210 OFF ERROR 

220 ON ERROR GOTO 270 

230 ASSI6N $F l. i c_y TO F_na*ei& " ' RECOVERS ENG 
240 1 " STRAIN OATA ARRAY 

250 1 

2S0 ENTER 3Fi le_y ; S tra l n_ I < * ) 

270 ASSIGN 9F;ie_y TO * 

2S0 OFF ERROR 
351 SOTO See_a 1 1 

3S3 1 

370 1 ASSIGNS 'RUE STRAIN VALUES AN ARRAY NUM. 

330 i 

331 See.all: > 

383 0*0 

394 ooiNT '' PLEASE UIAIT UNTIL THIS MESSAGE DISAPPEARS. ThE TRUE STRAIN ARRAY I 
5 SElNG FILLED’ 

390 FOP J-] TO 4995 STEP | i FILLS TRUE STRAIN ARRAY 

391 0-0+1 

400 True_3 tra l n( 0 )-LQG< l+(Strain_l(J)/100>) 

401 IF True_3tra m< 0 )»0 THEN GOTO 421 

410 next j 

421 OUTPUT 2s -K* ; 

422 GOTO Keya_setuo 

430 1 

440 i 

453 'SOFT KEY SET-UP For MAIN MENU 
460 ' 

470 I 

46C Keya_3etuo: l 

431 OUTPUT 2 ; 'K " ; I CLEAR SCREEN CMC 

490 OFF KEY 

500 ON K£v 0 LABEL *PRN E ,T‘ 50TQ ?r-rt.l 

5l0 ON KEY I LASEL * d L/PR 5R* GOTO Str ain_rate_l 

520 'ON KEY 2 LABEL "CALC OIF" GOTO 0IFFJ20MP 

R“0 ON kEY 1 i. A BFL "OSllRr.- GOTO Art -n*r 



Figure 69. Computer Program to Reduce Creep Data, Plot Creep Rate 

Curves and Print Data Tables 



110 



540 ON KEY 4 LA6E. “QUIT" GOTO Ouitter 

541 ON KEY 5 LrSEL “NEUTEST* GOTO Disc 

550 Key^iale: GOTO Key_idie 

S50 » 

573 i SUBPROCEDURE TO PRINT ALL STRAINS AND TInE 

530 ' ON THE PRINTER 

590 1 

500 i 

6 10 Pr mt_1 : 1 

520 'PRINT “PRINTJ ENTERED ‘ ' PPINTS TRUE STRAINS AND TIMES 

526 Strtl-2 

527 Stol-4999 

528 I nt v 1 -2 

531 INPUT 'INPUT ROG TO START AT, (DEFAULT - 1ST RDGT.Strtl 

532 INPUT “RDG 70 STOP ON, (DEFAULT - 4999 )", S tp 1 

533 INPUT “INPUT INTERVAL TO CALC TRUE STRAINS ,( DEF-2 RDGS)‘,Intv1 

634 PRINTER IS 706 

635 PRINT “FILENAME IS ";F_naneS 

637 PRINT " RDG J TRUESTRAlN TIME. SEC RDG * TRUESTRAIN 

TIME, SEC- 

639 FOR J-Strtl TO Stpl STEP Intvl*2 

640 PRINT USING Fmt 1 ? J ; True. itram( J ); Tyme_l ( J ) ; J+Intv 1 ; Trucks tra in( J + Intv I ) 
1 Tyme_l ( J+ Int v I ) 

54 I ON ERROR GOTO 644 

642 NEXT J 

643 Fmxl: IMAGE 2( 5D ,SX ,SD . DDDESZZ ,SX ,£D . DDDE5IZ ,7X ) 

644 PRINTS" IS i 

545 OFF ERROR 

546 GOTO Keys_setiJD 
647 i 

550 1 

660 ! SU8PR0C5DUPE T 0 PRINT AN INTERVAL OF ALL 

570 'STRAIN RATE3 AND STRAINS WITH PLOTTING 
630 ' 

690 ' 

700 St ra ; n_ra : e_1 : 1 

731 PRINTER IS : 

702 Interv»i0 

704 Strt=2 

705 5 1 p = l 900 
726 Ara_' S* N “ 

707 Prt«1 

‘ 7 08 Ansi" * Y ' 

709 Tr-0 

7)2 INPUT " INPUT INTERVAL BETWEEN STRAIN RATES t (D£F«10 RDSS >' .Interv 
713 I*Interv 

715 INPUT “INPUT VALUE TO STAPT AT ,( DEFAULT- 1 ST RDGr.Strt 

720 INPUT ‘INPUT VALUE TO STOP at t ( DEFAULT* 1 900 RDS)“,StP 

721 INPUT 'CO YOU JANT A HARD COPY OF DATA7 , ( DEFAUL T =ND ) “ ,Ans_! $ 

722 IF Ana THEN 

725 INPUT *HIT ENTER FOR CRT OR 2 FOR EXT PR INTER ,( DEF-CRT )" ,Prt 
725 ENO IF 

729 PRINT -ARE YOU SURE YOU WANT TO START AT * ; S t r t : " , STOP AT "sStpi' OVER I 
NTERVAL OF *; Interv 

730 INPUT 'INPUT Y/N,(DEFAULT»Y£S)“ .Ansi 

731 IF Ansi" "N* THEN 

732 GOTO Strain^ rat e_1 

733 OUTPUT Zi > “ i 

734 ELSE 

735 PRINT ‘PLEASE WAIT FOR MENU TO APPEAR. STRAIN RATE APRAY IS 3EING FILLE 
D . “ 

736 END IF 

737 IF °rt»2 THEN PRINTER IS 706 

733 IF Ans_lS-r THEN 

740 PRINT FILENAME IS *;F_nanei 

741 -RINT * INTERVAL AVG STRAIN STRAIN RATE*' INTERVAL AUG R7 
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rain STRAIN R’ 

742 ENO IF 

750 FOR J-Strt TO Sts STEP Interv 

751 Tr-Tr-M 

7G0 Str_rs tet T r 1-A8SU ( True_strain( J + Interv >-True _3 tram< J ) >/<Tyne ? ( J + Inter 

v >-Tyne_1 ( J ) ) ) ) 

76 1 1 Log.'-atef Tr >-lGT < A8S< Str_rate< Tr ) ) ) 

773 A_jtn Tr )•( True_strain( J+Interv )+True_strain( J ) )/2 

780 CN ERROR GOTO 830 

800 IF AnsJS- Y" THEN 

301 PRINT USING FmtZ ; J ; * -“ t J + I t A_s tr ( Tr ) ; S tr_rat e< Tr ) * j J + 1 ; * - " ; J +2 • I . A str(l 

+ Tr ) j S tr^at e< I + Tr > 

804 InO IF 

810 NEaT J 

820 FntZ: IMAGE < 40 ,K ,40 ,SX ,S0 . 000ES22 ,5X ,50 .D00ES22 ,3X ) 

830 OFP ERROR 

840 PRINTER IS 1 

850 OFF KEY 

851 i OUTPUT 2i*K’; 

860 ON KEY 1 LABEL ‘PLOT ER.E* SOTO Plot_er 

861 ON KEY 2 L^SEL “NEUTEST" GOTO Oise 

862 ON KEY 3 LABEL ‘MENU* GOTO Keys.setup 

863 ON KEY 4 LABEL ‘SLOPE* GOTO Slooer 

870 Plot_idle: GOTO Plot_ioie 

880 GOTO Keys_setuD 

850 1 

900 1 

910 » SUB TO PLOT STRAIN RATE US STRAIN 

923 P 1 0 t_er : ! 

921 OFF KEY 

923 Ans4$- N* 

924 Ylog-0 1 TELLS PLOT TO USE REG Y-AXIS 

925 PRINT "THIS SECTION GIVES YOU SEVERAL CHOICES OF PLOTS. YOU MAY NEEO IT 
ERATION TO SET THE" 

926 PRINT ‘SCALE ANO THE LIMITS RIGHT. OEFAULT IS A SEMI-LOG PLOT. YOU ALS 
0 CAN PLOT REGULAR- 

927 PRINT ‘AXES. AUTO SCALING REQUIRES SOME PATIENCE SINCE IT USES YMAX ANO 
YMIN, SO TRY ASA IN- 

923 PRINT 

932 X 1 5- * TRUE STRAIN . IN/ IN- 

940 Yls-’LCG STRAIN RATE- 

950 TS--TEMP CYCLING EXP‘ 

951 INPUT “°LOT LOG STRAIN RATE WITH REG AXES' 7 , ( OEF-NQ )’ , Ana 45 

953 IF Ana4$-“N* THEN 

954 Y log« I 

355 Y1 5--STRAIN RATE , SEC-1" 

955 X IS- TRUE STRAIN, IN/IN* 

353 INPUT ‘PLOT SEMI-LOG Ul/Y AS LOG AXIS? ,( YES-OEF , NO-0 )• ,Ylog 

961 ENO IF 

962 Ans2*l 

963 INPUT ‘INPUT TITLE OF PLOT< OEF-temp CYCL EXP)*,T$ 

965 INPUT *1 FOR CRT OR 2 FOR EXT PLOT , ( OEF-CRT )* ,Ans2 

965 IF Ans2-2 THEN 

957 PLOTTER IS 72S 

953 ELSE 

959 GCLEAR 

970 ALPHA OFF 

971 GRAPHICS CN 

972 ENO IF 

973 IF Ans4S-*Y* THEN 

974 CALL Au3ci(Log_r3te< I ) ,Log_rate< Tr ) ,0 ,Mn_r ,Mx_r ,Tc_r ) 

975 ELSE 

975 CALL AuacKStr ^ste< 1 ) ,Str_'-ate< Tr ) ,0 ,Mn_r ,M*_r ,Tc_~ ) 

977 ENO IF 

980 CALL Ausc 1 ( A_ 3 tr < 1 ) , A_s tr< Tr > ,3 ,Mn_- ,Mx_e ,Tc_e ) 

RR4 TR rnn4i-"Y* THEN 
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9S3 


CAL- Plot{Mn_- ,Mx_e ,Mn_r ,r'_^ ,Tc_e ,7c_r ,0 ,YIog ,Xls ,YlS ,A str(*),LoQ ra 


t ei • 


) ,7r ,75 ) 


991 


ELSE 


3s: 


CALL Plot ( Mn_e ,Mx_» ,Mn_r .Mx^r , 7c_e . Tc _r .0 .Yloq .X 1 S ,Y1 $ .A _str( • ) ,Str ra 


te< • 


) , Tr ,TS ) 


993 


£N0 IF 


995 


PRINTER IS 1 


996 


PRINT 'HIT CONTINUE TO PESUME THE PROGRAM" 


997 


PAUSE 


• 990 


Girii: 


999 


GCLEAR 


1 000 


GRA SU ICS OFF 


1001 


al Su a on 


1002 


GOTO K-ys_setuo 


1010 


i 


1020 


' SU8 TO PRINT DESIGNATED STRAIN RATES 


1030 


I 


1040 


Ac teener: « 


1050 


PRINT " ACT_ENER ENTEREO" 


1051 


Ana7S- "Y* 


1052 


INPUT " INPUT TEMP 1",T1 


1053 


INPUT "INPUT STRAIN RATE I’.SI 


1054 


INPUT "INPUT TEMP 2" .T2 


1055 


INPUT "INPUT STRAIN RATE 2",S2 


105S 


Qauoc-( 2.303*1 .SB )*< LGT( SI >-LGT( S2 > )/( ( 1 / C T 1 +273 ) )-t 1/< T2+273 ) ) ) 


1057 


PRINT "ACTIVATION ENERGY - ";Qaubc 


1055 


INPUT “DO YOU WANT TO GO AGAIN< OEF- YES ) " ,Ana7S 


1059 


IF Ana73»"Y* THEN GOTO Act^ener 


1061 


GOTO '>eya_aetuo 


1070 


i 


1090 


i SU8 TO PRINT DESIGNATED STRAINS 


1090 


Slooer: 1 


1100 


PRINT "SLOPER ENTEREO" 


1110 


GOTO Keya_aetuo 


1 120 


i 


1 130 


■ SUS TO QUIT STRAIN RATE PROGRAM 


1 1 40 


Ouitter: ' 


1 1 50 


SEEP 2300 , . 1 


1 160 


FOR 0-0 TO 4 


1 170 


ON *EY 0 LA8EL *0UIT“ GOTO OuitterJ 


1180 


ON KEY 0+5 LABEL "CONTINUE” GOTO Keya_aetup 


1 190 


NEXT 0 


1200 


Qui t t er_id 1 e : GOTO Quitter^idle 


1210 


Qu 1 1 1 er_* : 3T OP 


1223 


cNO 


1 4 , 4 . 1 








1 230 


SU8 AuacKMin.Max .Offset ,Mlnn,Maxn, Tic* > * S525 12/02/81 


1240 


'PRINT "AUTO-SCALE ENTERED" 


1 24 1 


' 


1250 


INTEGER Power, N.Oir 


1290 


Ranse--3S< Max-Mi n ) 


1300 


Power«lNT(LGT(Range) ) 


1310 


Norn- Range/ 1 0* Power 


1323 
• 1 ) 


N- 1 0*< horm/-5 <+5* < < Norn<,5 ) AND i Norny»2 > ) + 2 ♦< ( Norn<2 ) ANO ( Norn> 1 ) ) + < Norn v 


1330 


I nt er-QROUNO ( N* 1 3* ( Power- ' ) ,1 ) 


1340 


0 it *56Ni Min-Max > 


1 350 


X-i Min-Of f set )/ 1 0*Power - 


1350 


S0SU9 Rout 


1370 


Minn- s out*10"Power+Offaet 


1 353 


0 i r-t3N< Max-Mi n * 


1390 


*-« Max-Of f set )/10"Pouer 


1 400 


50SUB Rout 


1410 


Maxn-Roui * 1 O'Power^Of f set 


1 *22 


T ick -GROUND ' A5S<Maxn-M;r,r 'Irter- k1 . INK LST( A 9S< (M»xn-*ir\T )/ Inter*! )>•*»« >\ 4 
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1433 


GOTO Exit 




1 440 


Rout: 7est-A8S< X >— I N T < A8S( X ) ) 1 ROUNQ X TO MUL 


TIPLE OF N IN OIRECTICN Oir. 


1 450 


Oigit*lNT< 10*Test ) 




1 460 


Qe 1 1 a-Gigi t •( N- 1 0 )+Oigi t MOO N«(NOI0) 




1470 


Round* t < 35N( X )*0 lr 0 ) *n-SGN( X)*G ir*Oelta>/10M(Test“Digit/13 OR Qelta)<>0 


1480 


IF ABSC SGN( X )*0ig;t/ 1 0+Oir*3ouna )> 1 THEN Round 


- 1 -Oigit/ 10 


1 490 


Rout -SGN< X )•< INT ( A3S( X ) )+0igit/l 3 )+0ir*Round 




1500 


RETURN 




1550 


Exit: SU8EN0 




1560 


i 




1 570 


i 




::?0 


SU8 Plot(Xmin ,Anax , Ymin ,Ynax ,Xtic ,Ytic ,X log ,Yl 


og .X* ,Y* ,.<<•) ,Y( •) ,N ,Tit le* 


zzso 




• 9825 01/26/82 


zzso 




1 PRINT ’PLOTTER ENTEREO * 


2291 




i 


2300 


INTEGER Pointr .Minor .Majtic .Mintic .Penc 




2310 


OEG 




2320 


Nl ■ INT ( ABS( N ) ) 




2520 


Xnajor-INT(ABS(Xtic) ) 


i UARIA8LE SETUP 


2540 


Ynajor-INT( ABS(Ytic > > 




2550 


Cxnax- <na* 




2550 


IF Xlog T HEN C *nax - lGT( X nax ) 




2570 


Cxmn- <mn 




2530 


IF Xlog THEN Cxnin-LGK Xnin ) 




2593 


Cynax»»nax 




2591 


Y 1 ■ ( 1 . E-3+Ymax > 




2500 


IF Ylog THEN Cynax " lGT ( Y 1 ) 




2610 


Cynin-*nm 




2SI l 


Y2- 1 1 .E-3* v nin ) 




2523 


IF Ylog THEN Cynin-uGT< Y2 ) 




2630 


IF Cxnin<Cxnax THEN GOTO X_ok 


i MAKE SURE Max > Min 


2540 


Qunmy-Cxnin 




2S50 


Cxni n-C/na * 




2650 


Cxnax-Ounmy 




2570 


X_ok: IF Cynin<Cynax THEN GOTO Y_ok 




2530 


Dunnv-Cynin 




2590 


Cynin-Cynax 




2700 


Cynax -Ounwy 




2710 


Y_ok : Che ignt » ! 5/ 4 . 54 ! CHARACTER 


SIZE ANO TICK LENGTH IN GOU 


2720 


Cu i d t h- . 5 *Che ignt 




2730 


Ticx-Cwidth 




2740 


IF RATI0>-1 THEN 'CALC UEF.T. ANQ HORIZ. LIMITS IN GOU 


27S3 


Ue*-t-1 00 




2760 


Hor i z-°AT IQ ♦ 1 00 




2770 


ELSE 




27eo 


Her i l 30 




2^=3 


Uert->00/RATIO 




2900 


ENO IF 




2310 


Gdux-Horiz-l 0*Cwidth-Cheignt-T ick 


i AXIS LENGTH IN GOU 


2520 


Gduy -Uert-9 . 5*Cwi dt h-2 . S*Chei gnt -T l c k 




2330 


1 CONUERT HARO LIMITS 0,Horiz TO OATn UNITS Xlouer, Xuooer , etc. 


2840 


X louer-Cxm n-( 9.5*Cuidth*Cheignt + Tick )/Gdux •( Cxra.x-Cxnin ) 


28S0 


Xuocer-Qxnax-r . 5*Cui oth/Gdux ♦ ( Cxnax-Cxmin ) 




2860 


Ylouer-Cynin-( Cheignt+9.5*Cuidth+Tick )/Gduy*< C; 


, rax -Cynin ) 


2970 


Yuocer-Cynaxr l . 5 *Ch- 1 gnt /Gduy • ( Cynax-Cynin) 




2550 


Xticien-T icx/Gduy*( Cynax-Cynin ) 




2990 


Yticlen-T lCx/Gdux *< Cxnax-Cxnin ) 




2500 


UIEUPQRT 0 ,Hor i z , 0 ,U-r t 


i SETUP PLOTTING PARAMETERS. 


291 0 


PIUOT 0 


.. 


2920 


MOUE 0.3 




2920 


UINOOU Xlouer .Xucoer .Ylouer .Yuooer 




2540 


CSIZE CheigHt ,Cui dtn/Cheignt 




2553 


CLIP Cam i n , Cxnax ,Cyn i n ,C /nax 




2560 


IF Xmajor-0 THEN SOTO Y_axis 




2970 


Minor-lNT< 1 0 • < A8 S C Xtic l-Xnajor ) ) 


•PLOT X AXIS 




T i r k k -7* n 1 n 
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2990 


IF Xmajor/I THEN Tick space*' Cxmax-Cxmin ;/( Xma jor-1 ) 


3000 


HOVE Cxmin .Cymin 


3010 


QRAU Cxmax .Cynin 


3023 


LGRG 8 


3030 


LOIR 0 


3040 


FOR Majtic*! TO Xmajor 


3050 


Ma j pos-Cxm l n+T i ck space* < Ma j 1 1 c - 1 ) 


3060 


MOVE Majpos ,Cymin-<t ic len 


3070 


Lab i -Ma jpos 


3080 


IF X log THEN Labl«10‘Majpos 


3090 


IF < (A8S(Labi >>-l .Ei-6) OR ( A8S( Lab 1 >< I . E-A > ) ANO <Labl<>0> THEN GOTO FI 


oat x 




3100 


IF Lab l<>0 THEN 


3110 


Temp— INT<LGT<A6S< Labi ) >>-! 


3120 


IF Temo<»0 THEN Temp-0 


3130 


Labl-0R0UN0( Laoi ,7-Temp ) 


3U0 


ENO IF 


31S0 


CLIP OFF 


3160 


LABEL USING ‘S.K'iLabl 


3170 


CLIP ON 


3180 


PENUP 


3190 


GOTO Xticmark 


3200 


Float* :CLIP OFF 


3210 


Labi -0R0UN0( Lab 1 ,2 ) 


3220 


LABEL USING "3 ,K" ;Labl 


3230 


CLIP ON 


3240 


PENUP 


3250 


Xt icmar* : MOVE Majpos, Cymin 


3260 


IF X 1 1 c 7 0 THEN IORAU 0,Xticlen 


3270 


IF (Minor-0) OR ( Ma j t ic- ^ma j or > THEN GOTO No_ v minor 


3280 


Mininc-Ticksoace/ ( Minor-1 ) 1 PLOT MINOR TICKS 


3290 


IF Xlog THEN Mi n inc-< J 0* ( Ma j po s+Tick soace /- 1 0“ Ma jpos )/( Minor* 1 ) 


3300 


FOP Miniic=1 TO Minor 


3310 


Minpos-Majpos+Mininc^Mintic 


3320 


IF Xlcg THEN Minocs-LGT< 1 0“Ma j pos+Ml n me *M i nt ic ) 


3330 


MOVE Minpos ,Cymin 


3340 


IORAU 0,Xticlen/2 


33S0 


NEXT Mintic 


3360 


No_*minor: NEXT Majtic 


3370 


LOIR 0 1 X AXIS LABEL 


3380 


LOPG 4 


3390 


MOVE ( X lower + Xupoer )/2 .Ylouer 


3400 


CLIP OFF 


3410 


LABEL USING “t .K" ;X$ 


3420 


CLIP ON 


3430 


PENUP 


3440 


Y_axis: IF Ymajor-0 THEN GOTO Dataplo: 


34S0 


Minor-lNT( 10*< A8S( v tic )-Ymajor ) ) ‘ PLOT Y AXIS 


3460 


T iCksoace-Cymax-Cymin 


3470 


IF Ymajor>1 THEN Tick space-< Cymax-Cym in >/( Yma jor- ! > 


3480 


MOVE Cxmin ,Cym in 


3490 


DRAW Cxmin, Cymax 


3500 


LORG 8 


2S 1 0 


LOIR 0 


3520 


FOR Majtic-1 TO Ymajor 


3530 


Majpos-Cymin+TicksoaceMMaj tic-1 ) 


3S40 


MOVE Cxmin-Yt ic len .Majpos 


3SS0 


Lab 1-Majpos 


3S50 


IF Ylog THEN Lab 1- 1 ©“Majpos 


3570 


IF ( ( ASSlLabi >>-» .E^5 > OR < A 8 S < Lao 1 X l . E-4 ) ) ANO (Labl<>0) THEN GOTO FI 


oaty 




3530 

1 


IF Labi<>0 THEN 




Temp — lNTi lGT ( AS S t Labi 7 ) J - i 


3600 


IF Temov-0 THEN Temp-0 


3610 


Lab i -ORQUNO( Lab 1 ,7-Temo > 


3670 


ENO IF 
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3630 CLIP OFF 

3540 LABEL USING "*,K“iLadl 

3550 CLIP ON 

3650 PENUP 

3673 GOTO v ticmark 

3630 Floaty: CLIP OFF 

3633 LaOl-QR0UN0(LaOl ,2 ) 

3700 LABEL USING -*.K*;LaOl 

3710 CLIP ON 

3733 PENUP 

3730 Yticnar*: MOVE Cxnin.Majpos 

3740 IF Y 1 1 c«>0 THEN IDRAU Yticlen,0 

3753 IF (flinor-0) OR ( Ma jt lc-tnajor ) THEN GOTO No_ymnor 

3760 Himnc’ T lcK5pace/( Minor-H ) 1 PLOT MINOR TICKS 

3770 IF Ylog THEN Mm xnc -( I 0“ ( da jpos+Tick apace )- 1 0*Ma jpoa >/( Mi nor* 1 ) 

3780 FOR Mintic*t TO dinor 

3780 dirtpos-da jpoa+Minmc ‘Mint ic 

3800 IF Y log THEN Minpos-LGT( 10*Majpos+Mininc*dint ic ) 

3610 MOVE CAnin ,M1 npoa 

38Z0 IDRAU Yticlen/2 ,3 

3330 NEXT Mint ic 

3840 No_ymnor: NEXT Majtic 

3950 LOIR SO 1 Y AXIS LABEL 

3860 LOPG 5 

3870 MOVE X 1 ouer , { Y 1 ouer+Yupoer )/2 

3880 CLIP OFF 

3890 LA3EL USING '5 ,K* ;Y$ 

3300 CLIP ON 
3810 PENUP 

3820 Datap*ot: LOIR 0 

3930 IF N1-0 "HEN GOTO Titlepiot 

3940 LORG 5 'PLOT OATA 

3950 Penc--2 

2360 FOR Pointr-I TO N1 

3970 X*»X( Pointr) 

3980 IF X log T HEN Xx-lGT( X< P ointr ) ) 

3990 Y y ■ Y ( Pointr ) 

4000 IF Ylog THEN Yy-LGTf Y(Pomtr )) 

4010 IF Pirc--2 THEN MOVE Xx.Yy 

4020 IF Pane — 1 THEN DRAW Xx,?y 

4030 IF N< O ThEN 

4040 cl:° off 

4050 LABEL USING *3 ,K“ ; 

4060 CLIP ON 

4070 PENUP 

40e3 ENO IF 

4090 s snc - “ l-i N<0 > 

4100 NEXT Pointr 

4110 Titlepiot: LORG 5 1 PLOT TITLE 

4120 MOVE ( X louer^Aupper )/2 , Yupper 
4130 CLIP CFF 

4140 LA3EL USING * 3 ,K " ;Titlei 
4150 CLIP ON 
4150 PENUP 
4250 SUEEND 



Figure 69. Computer Program to Reduce Creep Data, Plot Creep Rate 
Curves and Print Data Tables (Continued) 
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